Select Code to Download

#! perl -slw
use strict;
...
        }
        close SEQ;
    }

$masked =  $mask ^ substr( $seq, $offset1, $maskLen );