You're making this way to complicated. Use unpack. Create a "picture line" for each different format.

#untested
my @col = unpack('a30a15a12a8a10a3',$line)
[download]