my @rec = = split /\|/, $line, 5;