use strict;
my $str = 'my email is andy@delusion.org
my school email is andrew.newton18@mydiscoveryk8.org
daddy\'s email is mike@delusion.org
Zach H\'s email is hitchcockzach@gmail.com
Zach R\'s email is zrambler441@yahoo.com
Ryan\'s email is ryanmeth@icloud.com
Mateo\'s email is mateo@relhok.com
Kieran\'s email is kieran.derrington@gmail.com
Tyler\'s email is tbone.vaughn@icloud.com
DON\'T WORK:
...@.......
secreretface-2@loans.com
';
my $regex = qr/(?P<User>[a-zA-Z1-9\._]+)@(?P<Domain>[a-zA-Z1-9]+)\.(?P<D_EXT>[a-zA-Z]+)/p;
my $subst = '${User} at ${Domain}.${D_EXT}\\n';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html