用“@ example.com”替换所有电子邮件地址实例

Question

（另一个问题，抱歉，但强调考试）。

我有一个文件，我将从STDIN读入。它在文本中包含文本和大量电子邮件。

"blah blah blah something john@smith.com blah blah james@john.com".

我想用“@ example.com”替换所有电子邮件地址域名。所以上面变成了

"blah blah blah something john@example.com blah blah james@example.com"

这是我到目前为止的代码。

#!/usr/bin/perl

while($line = <STDIN>){
  $line =~ s/'@'+'.com'\s/"@example.com"/g;

  print $line;
 }

Answer 1

$line =~ s/(\S+)@\S+/$1\@example.com/g;