Select Code to Download

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

% reformat.pl <file>