Select Code to Download

return map {tr/\0/\0/ / $len} $ref_seq ^ $test_seq;

my($score) = map {tr/\0// / $len} $ref_seq ^ $test_seq;
return $score;

return +(map{tr/\0// / $len} $ref_seq ^ $test_seq)[0];