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);

[download]

-enlil

In Section Seekers of Perl Wisdom