print chr(34);

my $quot = chr(34);
print "This is ${quot}not$quot a quote.\n";

##</code><code>##

print "\042";
print "\x22";