use warnings;
use strict;

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

#prints: Beginning is <I have >,number is <2>.