print chr(34);

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