# Program                              Output       Deparse

perl -Mstrict -le 'print nono . '1' '  # nono1      # print 'nono' . 1;
perl -Mstrict -le 'print nono .'1'  '  # (nothing)  # print nono 0.1;