regex - 単純なperl正規表現検索-置換スクリプト

Question

sed私は次のようなことができます：

#!/bin/sed -f

s/pattern/replacement/g

上記のperlの最も単純な同等物は何ですか？

Answer 1

#!/usr/bin/env perl

while (my $m = <>) {
    $m =~ s/pattern/replacement/g;
    print $m;
}

Answer 2

perlではそれはただ

#!/usr/bin/perl -nw    

s/pattern/replacement/g

Answer 3

それはそのようになります ：

my $str = "fred";
$str =~ s/f/g/g;