Select Code to Download

m[\d+:(.:.)] and ++$stats{ $1 } for dnacmp( @seqs[ $i, $j ] );

++$stats{ $1 } while $res =~ m[:(.:.)]g;