my($num1,$num2,$num3,$num4,$num5)=split(/\|/,$a);