($seq) = $seq =~ /(\d+)/;     # Just grab the first run of digits