my $variable  = '12345(checkthis)';
my @digits; undef @digits;

foreach (split '', $variable) {  push @digits, $_ if /\d/ }