Help for this page
my $variable = '12345(checkthis)'; my @digits; undef @digits; while ($variable =~ /\d/g) { push @digits, $& }
my $variable = '12345(checkthis)'; my @digits; undef @digits; foreach (split '', $variable) { push @digits, $_ if /\d/ }