You could use Perl's unpack() to read fixed length field records.

e.g. put something like this in a file and have it run through Perl

<pre>
$ cat insert_pipes.pl
#!/usr/bin/perl

while (<DATA>) {
chomp;
@unpacked = unpack 'A1A3A8A8A5A9x1A*', $_;
print join('|', @unpacked[0..5], q{ }, $unpacked[-1], q{}), "\n";
}
__DATA__
B065200512312004123111010000061451 000021853
B065200512312004123111020000621907 000417802
B065200512312004123111030000005214 000005861
B065200512312004123111040000120133 000088448


$ ./insert_pipes.pl
B|065|20051231|20041231|11010|000061451| |000021853|
B|065|20051231|20041231|11020|000621907| |000417802|
B|065|20051231|20041231|11030|000005214| |000005861|
B|065|20051231|20041231|11040|000120133| |000088448|
</pre>

N.B. to moderators,
How do I enable markup recognition in this forum?