#!/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\x
+04baz\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
See IO::All
Regards, Karl
«The Crux of the Biscuit is the Apostrophe»