Select Code to Download

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/ }