my $parser = Parse::FixedLength->new([qw(
  first:2
  second:4
  filler:4
  third:4
)]);
my $href = $parser->parse($line);
print "$href->{first}\n";
etc.