my @nums = ($x =~ /\s(\S+)/)[1] =~ /(\d+)/g;

##</code><code>##

3
33

##</code><code>##

my @nums = ($x =~ /\s(\S+)/g)[1] =~ /(\d+)/g;