my $string = "I have 325 numbers: 98765  12324";  
if ($string =~ /(\d+)\D+(\d+)/) 
{ 
    print "Beginning is <$1>,number is <$2>.\n"; 
}
#prints: Beginning is <325>,number is <98765>.