my $variable = '12345(checkthis)';
   my ($start_digits) = $variable =~ /^(\d*)/;