in reply to custom args with perl -an type invocation?

The cat is rarely necessary. Using the code Tanktalus posted:

anWithArgs.pl numbers < input.txt

[download]

Makes it easier to rerun with different files.
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

In Section Seekers of Perl Wisdom