$ perl -Mstrict -Mwarnings -E '
my $text = <<'EOT';
some text
fred\@bloggs.com
EOT
say $text;'
some text
fred@bloggs.com
$