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


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

Nested declaration may be what you are looking for.
$/="\r"; my @splitted=(); while(<FH>){ local $/="\003"; push @splitted,split(/$\//,$_); }