in reply to Can this be a 1 line or simpler regex?
Here is one more way to do it:
1 while(s!(\n)|(\r)|(\t)|(\f)!('\n','\r','\t','\f')[$#--1]!e);
-enlil
In Section
Seekers of Perl Wisdom