perl -MO=Deparse -e ' $a = "$foo"; $b = q{$foo};'  
$a = "$foo";
$b = '$foo';