Select Code to Download

use strict;
use warnings;
...

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

Matched 10