$y=split(/\s/,$x)[0];