Perl 字符串转义序列

use strict;  
use warnings;  

my email  = "xyz\@gmail.com";  
print "email\n";  

# no backslash needed as interpolation does not
# work in single quotes.
my email2  = '[email protected]';  
print "email2\n";

[email protected]
[email protected]

use strict;
use warnings;
my name = 'Negan';
mymsg = 'I am Negan';

# escaping the first dollar sign but not escaping the second
print "\name:name\n";

# escaping the first dollar sign but not escaping the second
print "\msg:msg\n";

$name: Negan
$msg: I am Negan

use strict;
use warnings;
my say = 'I do like to use backslash \\';
print "say\n";

I do like to use backslash \

use strict;
use warnings;
my say = "I like to watch \"The Walking Dead\"";
print "say\n";

I like to watch "The Walking Dead"

use strict;
use warnings;
my name = 'Chaitanya';
print qq(My name is "name" and I like brackets ()\n);

My name is "Chaitanya" and I like brackets ()

use strict;
use warnings;
my name = 'Chaitanya';
print q(My name is "name" and I like brackets ()\n);

My name is "$name" and I like brackets ()\n