erickn@isfe:/home/erickn> cat x
use Data::Dumper;

$record = 'one|two|three|4|5|six';
print "$record\n";
@record = split /\|/, $record;
print Dumper \@record;