except that you don't want the /g (global) switch on the regex! Consider:

use strict;
use warnings;

my $str = 'wibble 10';

print "Matched $1\n" if $str =~ /(\d+)/g;
print "Matched $1\n" if $str =~ /(\w+)/g;
[download]

Prints:

Matched 10
[download]

Because of the /g switch the second match fails because is starts searching from where the first match left off.