my @numbers = split /\D+/, $results;

The problem with this is that it creates an extra empty element at the beginning of the @numbers array. Go for the RE solution.

just another dave