#substr_into_array:
      sub {
        my $line = shift;
        my @data;

  $data[0] = substr($line, 413, 30);
  $data[1] = substr($line, 373, 30);
  $data[2] = substr($line, 343, 30);
  $data[3] = substr($line, 243, 10);
  $data[4] = substr($line, 283, 15);
  $data[5] = substr($line, 253, 30);
  $data[6] = substr($line, 328, 15);
  $data[7] = substr($line, 298, 30);
  $data[8] = substr($line, 524, 30);
  $data[9] = substr($line, 559, 30);
  $data[10] = substr($line, 443, 6);
  $data[11] = substr($line, 489, 30);
  $data[12] = substr($line, 454, 30);
  $data[13] = substr($line, 240, 3);
  $data[14] = substr($line, 236, 4);
  return \@data;
};
#--------------------------------------
#substr_no_array:
sub {
 (substr($_[0], 413, 30),
substr($_[0], 373, 30),
substr($_[0], 343, 30),
substr($_[0], 243, 10),
substr($_[0], 283, 15),
substr($_[0], 253, 30),
substr($_[0], 328, 15),
substr($_[0], 298, 30),
substr($_[0], 524, 30),
substr($_[0], 559, 30),
substr($_[0], 443, 6),
substr($_[0], 489, 30),
substr($_[0], 454, 30),
substr($_[0], 240, 3),
substr($_[0], 236, 4),
);
};
#--------------------------------------
#unpack_line_into_array:
sub {
  my @data = unpack('@413a30
@373a30
@343a30
@243a10
@283a15
@253a30
@328a15
@298a30
@524a30
@559a30
@443a6
@489a30
@454a30
@240a3
@236a4
', $_[0]);
return \@data;};
#--------------------------------------
unpack_line_no_array:
sub {
  unpack('@413a30
@373a30
@343a30
@243a10
@283a15
@253a30
@328a15
@298a30
@524a30
@559a30
@443a6
@489a30
@454a30
@240a3
@236a4
', $_[0]);
};