$ perl -le '$\="wubba\n"; print "foo\n"'
foo
wubba