Minus another char: perl -pi -e 's//<>/e;eof||redo' in.file
Choosing another loop construct lets you drop the annoying ";"
perl -pi -e 's//<>/ewhile!eof' in.file
-bass
Minus another char: perl -pi -e 's//<>/e;eof||redo' in.file
Choosing another loop construct lets you drop the annoying ";"
perl -pi -e 's//<>/ewhile!eof' in.file