ditto the above comment, use code tags!!,

One solution to your problem:

• use unpack to get your data out into an array
• slice the array to discard the values you dont want
• join the array with pipes

open (OUTFILE, >$file) or die;
while (<FILE>) {
    my @ary = unpack('A35 A30 A15', $_);
    my @tmp = @ary[0..4];
    print OUTFILE (join '|', @tmp);
}
close OUTFILE, FILE;
[download]