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