Select Code to Download

$a="ABCDABCDXBCDABCXABCDXXCDABXD";
$b="ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD";

$a="ABCDABCDXBCDABCXABCDXXCDABXD";
$b="ABCDABCDABCDABCDABCDABCDABCDABCDABCDABCD";
...
}

if ($b=~/$seq_final/) {print "OK\n";}