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