perl -MO=Deparse - $_ = qq~"$_"~; __END__ $_ = qq["$_"];