Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
blakem@foo4.com
blakem@foo5.com
blakem@foo6.com

You cannot include a literal $ or @ within a \Q sequence. An unescaped
+ $ or @ interpolates
the corresponding variable, while escaping will cause the literal stri
+ng \$ to be inserted.
You'll need to write something like m/\Quser\E\@\Qhost/.

print "blakem\@foo.com";
print 'blakem@foo.com';

my $email = 'blakem@foo.com';
print $email;