http://www.perlmonks.org?node_id=1035132


in reply to Re^2: About $/
in thread About $/

No need for the second local $/ and the first can be made even more local:

my @splitted = do { local $/ = "\r"; map { split m/\003/ => $_, -1 } <>; };

Enjoy, Have FUN! H.Merijn