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