$foo = (split /\s+/, $_) [0];