my @var = $test =~ /\d+/g;