($a,$b)=split(/\s/,$test1,2);
print "b=$b\n";