Help for this page
#!/usr/bin/perl ... ATGNCNC TTGNNNC
{ "\2" => "AC ", ... } ATGNCNC ^ ATGACNN => "\0\0\0\17\0\0\r" ok ATGNCNC ^ TTGNNNC => "\25\0\0\0\r\0\0" FAIL