# From ikegami's code
while (<DATA>) {
    chomp;
    push(@records, [ split(/\|/) ]) unless /^\s*$/;
}