for doesn't clobber $_

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