$ perl -Mstrict -wE '$_ = q{foo}; $_ = qq~"$_"~; say $_'
"foo"