Help for this page
#!/usr/local/bin/perl -wi.bak use strict; ... print map join('|', @$_) . "\n", $recs[int($.-1) / 5] if !($. % 5); }
% reformat.pl <file>