Select Code to Download

Select or download this

#! perl -slw
use strict;
...
        print $masked;
    }
}

Select or download this

C:\test>1070240.pl
10.06% match at offset 50
...
GTMARNDGQGKAAATFMHISYNNFITEVDNLNKRMGDLRDINGEAGTWVRLLNGSGSADGGFTDHYTLLQ
+MGADRKHELGSMDLFTGVMATYTDTDASADLYSGKTKSWGGGFYASGLFRSGAYFDVIAKYIHNENKYD
+LNFAGAGKQNFRSHSLYAGAEVGYRYHLTDTTFVEPQAELVWGRLQGQTFNWNDSGMDVSMRRNSVNPL
+VGRTGVVSGKTFSGKDWSLTARAGLHYEFDLTDSADVHLKDAAGEHQINGRKDSRMLYGVGLNARFGDN
+TRLGLEVERSAFGKYNTDDAINANIRYSFLE
    *     *           *                    *               *       ** 
+                   *       * **  *             *            *        
+  *    *                                    *   **                   
+      **    *               *   *           *       *       *     *  
+    *                    *  *