$var = "'\$";
print $var, "\n";
print "wahoo\n" if ($var =~ /\'\$/);