my @split_line = split(m"\|",$line);
if (@split_line != 4) {
   warn "something gang aft";
} else {
   print "valid data!";
}