use strict;
use warnings;

my $x = 'a34x5';

my @y = $x =~ /([\d]+)/g;
my @z = $x =~ /([0-9]+)/g;
print "@y\n";  # 34 5  \d worked fine
print "@z\n";  # 34 5

my @b = $x =~ /([\d\w]+)/g;
print "@b\n"; # a34x5  \d irrelevant but \w works

my @c = $x =~ /([\w]+)/g;  #brackets not needed
print "@c\n";  #a34x5
my @d = $x =~ /(\w+)/g;
print "@d\n";  #a34x5