my @split_line = split(m"\|",$line)

##</code><code>##

if(!$line =~ m"|"g){die " Not Compatible\n";}