#!/usr/bin/perl
use warnings;
use strict;
###############

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

my @pats = qw {
        (.*?)(\d*)
    };

foreach my $pat (@pats) {
    printf "%-12s ", $pat;
    if ( $str =~ /$pat/ ) {
	    print "<$1> <$2>\n";
    } else {
	    print "FAIL\n";
    }
}