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