이메일 주소의 모든 인스턴스를 "@ 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;