dwm042's answer below does this but there's a shortcut specifically for this kind of thing. Try this:

my $line = "  0 10  9  4  1  0  0  0  2  2  1  1  0";
my @config = grep /\S/, split / /, $line;
# or even
my @config = grep /\A\d+\z/, split / /, $line;

print join(", ", @config), "\n";
[download]

The second will only pass through numbers (well, positive integers and zero) so something like "6a" will be skipped.