Select Code to Download

>perl -wMstrict -le
"use List::MoreUtils qw(uniq);
...
'AGCT'
'AGGT'
'CTAG'

use warnings;
use strict;
...
      ;

    }

sub filter4 {

...
        ;

    }  # end sub filter4()