Thank you all for the help - I used a combination of the 2 replies to get the disired result. To answer what I done prior to that, it was very basic. First I matched 4 or 5 number strings and then I striped out any characters leaving undisered results.

if($string =~ m/(\d\d\d\d+)/ || $string =~ m/(\d\d\d\d\d+)/){
   $string =~ s/\D//g;
}
[download]

As you can see not so good and not so desired... again thank you for your help.