Benchmark: timing 100000 iterations of substr, unpack...

          Rate unpack substr
unpack 40486/s     --   -28%
substr 55866/s    38%     --


##</code><code>##

sub {
  my $line = shift;
  my @data;

  $data[0] = substr($line, 413, 30);
  $data[1] = substr($line, 373, 30);
  $data[2] = substr($line, 343, 30);
# etc... 
  $data[12] = substr($line, 454, 30);
  $data[13] = substr($line, 240, 3);
  $data[14] = substr($line, 236, 4);
  return @data;
};

#-------------------------------------

sub {
  my $line = shift;
  my @data = unpack('@413A30
                     @373A30
                     @343A30
                     # etc...
                     @454A30
                     @240A3
                     @236A4', $line);
};