FILEHANDLE has "asdkjflaksdjf****askldfjas;lkdfj****sdkfj" $/ = "****"; while { if (last loop) {print NEWFILE "$_"} else {print OLDFILE "$_"} }