#!/usr/bin/perl                                                                                                   
use strict;
use warnings;
use IO::All;

my $io = io( shift ) || die $!;

for ( $io->getlines ) {
     print join( qq(|), split /\x04/ );
}

__END__

Karls-Mac-mini:monks karl$ perl -e 'for( 1..3 ){ print qq(foo\x04bar\x04baz\n) };' > records.dat

Karls-Mac-mini:monks karl$ cat records.dat
foobarbaz
foobarbaz
foobarbaz

Karls-Mac-mini:monks karl$ ./eot.pl records.dat                                                                   
foo|bar|baz                                                                                                       
foo|bar|baz                                                                                                       
foo|bar|baz