Select Code to Download

$ perl -le '$_ = "aaa\@z.com bbb\@z.com ccc\@z.com"; s/(.+?\@)(.+?\.)(
+.+?)/$1something.$3/g;print'
aaa@something.com bbb@something.com ccc@something.com

$ perl -e '$1something'
Bareword found where operator expected at -e line 1, near "$1something
+"
        (Missing operator before something?)
syntax error at -e line 1, next token ???
Execution of -e aborted due to compilation errors.