简单的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;