Thanks, I didn't even think of doing it that way! :-) I would change

$str =~ s/\s//g;
[download]

to

$str =~ s/[^\d-,]//g;
[download]

though when handling untrusted data.

As they say, TMTOWTDI.