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

$a = 'foo';

##</code><code>##

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

$a = "foo $$";