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;