#!/usr/local/bin/perl

# new line at the end of each print, automatically
$\ = "\n";

$var = 1;

print "double quote operator";
print qq(var);
print qq("var");
print qq($var);
print qq(${var}2);
print qq(\$var);
print qq('$var');

print qq/1+1 is ${ \($var+$var) }/;

print "single quote operator";
print q(var);
print q("var");
print q($var);
print q(${var}2);
print q(\$var);
print q('$var');