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


in reply to Fixed Position Column Records

You're making this way to complicated. Use unpack. Create a "picture line" for each different format.
#untested my @col = unpack('a30a15a12a8a10a3',$line)