perl -MO=Deparse -le '$a = "foo $$"'
-e syntax OK

$a = "foo $$";