You could try something like:

$string =~ s/(?<!\\)((?:\\\\)*)([\$\@])/$1\\$2/g;
$string = eval qq{
<< "I KNOW THIS STRING IS NOT IN THERE"
$string
I KNOW THIS STRING IS NOT IN THERE
};
[download]

japhy -- Perl and Regex Hacker