my $str = "I have 2 numbers: 53147";

    if ( $str =~ /(.*?)(\d+)/ ) {
	    print "<$1> <$2>\n";
    } else {
	    print "FAIL\n";
    }