#!/usr/bin/perl

$Price = '$100';                        # not interpreted
print "The price is $Price.\n";         # interpreted

$foo = q!I said, "You said, 'She said it.'"!;
$bar = q('This is it.');
$_ .= qq
*** The previous line contains the naughty word "$&".\n
	if /(ibm|apple|awk)/;      # :-)

print STDOUT hello,' ',world,"\n";
