Help for this page

Select Code to Download

Select or download this

# @nums = ('3', '33');
my $word = 2;
my @nums = ($x =~ /(\S+)/g)[$word] =~ /(\d+)/g;

Select or download this

# @nums = ('3', '33');
my $word = 2;
my @nums = (split(' ', $x))[$word] =~ /(\d+)/g;