#! perl -sw
use 5.010;
use strict;

while( <> ) {
    my @fields = unpack 'A31 A31 A26 A13 A9 A11 A31 A26 A26 A1', $_;
    say join "\t", @fields;
}
__END__

c:\test> thisScript.pl yourFile > theNewFile