replace all instance of email addresses with "@example.com"

Question

(another question, sorry but stressing for exam).

I have a file I am going to read in from STDIN. It has text and bunch of emails in the text.

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

i want to replace all email addresses domain name with "@example.com". So the above becomes

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

Here is the code i have so far.

#!/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;