#!/bin/perl5
use strict;
use warnings;

my @history = <DATA>;

for my $record (@history){
  print "$record\n";
  $record =~ s/^\s*//;
  my @fields = unpack "a21 a9 a9 a2 a13 a8 a9 a9 a4 a5 a6", $record;
  for my $field (@fields){
    print "*$field*\n";
  }
}

__DATA__
                    AP040003EZ9891783    61125    N        BX    108.00000   03196             00000   D    Y     B
                    BP041303DD554        009J0    N        BX      8.75000   03168       62    00000        Y     W