my ($s1,$n,$s2,$v2,undef) = split ';',$_,5;