Select Code to Download

my $string  = 'examplestringofrandomlength/userid=6&refid=49';
my ($num1, $num2) = $string =~ /\d+/g;