print qq/Hello\n/;           # same as: print "Hello\n";
print q/He owes $5.00/;      #  same as: print 'He owes $5.00', "\n";
@states=qw( E T A L );       # same as ("E", "T", "A","L")
$today = qx(date);           # same as $today = 'date';

   