$x = "a b c d e f g";
($y) = (split(/\s+/,$x))[0];