in reply to Re^2: Finding unique vals from a inout file
in thread Finding unique vals from a inout file

Sometimes, in spite of careful testing, one screws up. As I did. You are correct jethro.

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

In Section Seekers of Perl Wisdom