note karlgoethebier <p>TIMTOWTDI</p> <readmore> <code> #!/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 </code> <readmore> <p>See [mod://IO::All] </p> <p>Regards, Karl</p> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-1001958"> <p>«The Crux of the Biscuit is the Apostrophe»</p> </div></div> 1006696 1006696