Maybe Ive misunderstood:

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

I notice your output mentions sql strings, have you tried using the $dbh->quote method? may be the answer to your problems?