split(/\|/, $record );