sub first_x {
    return
        wantarray
        ? ( split /\s+/, $_[0], $_[1] + 1 )[ 0 .. $_[1] - 1 ]
        : join ' ', first_x( @_ );
}