Help for this page
print chr(34); my $quot = chr(34); print "This is ${quot}not$quot a quote.\n";
print "\042"; print "\x22";