$ perl -Mstrict -Mwarnings -le '
    my $x = "a b c d";
    my (undef, undef, $c, $d) = split /\s+/ => $x;
    print "$c $d";
'
c d