P:\test>type junk.dat|perl -e"$_='old value';{local$_; while(<>){print};}print;"
line 1
line 2
line 3;
old value