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


in reply to If at first you don't succeed ...

You could also do:
local $/="SERIAL NUMBER"; my @f1 = (<>); my @f2 = (<>); ...
...and write less code :) .