$\ = "\n"; # as perl -l print "before"; { local $\; print "continued"; } print "after"; print "heh!";