$ perl -Mstrict -MO=Deparse -le 'print nono .'1' '
print nono 0.1;

$ echo "print nono .'1' " > oneliner
$ perl -Mstrict -MO=Deparse -l oneliner 
print 'nono' . '1';