$ perl -le'$_="abc"; print for "def";  print'
def
abc