Hello freddie,

There is also a solution by using unpack:

#!/usr/local/bin/perl -w
use strict; 
use Data::Dumper;

my $spec = 'A24A9A15A8A8A8';
my $line = scalar <DATA>;
my @arr  = unpack($spec, $line);
print Dumper(\@arr);

__DATA__
N-20070143.003.TXT      05/23/07 02:36:59 PM    13      13      0

__OUTPUT__

$VAR1 = [
          'N-20070143.003.TXT',
          '05/23/07',
          '02:36:59 PM',
          '13',
          '13',
          '0'
        ];
[download]