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

while ($variable =~ /\d/g) {  push @digits, $& }