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