Help for this page
>perl -wMstrict -le "use List::MoreUtils qw(uniq); ... 'AGCT' 'AGGT' 'CTAG'
use warnings; use strict; ... ; }
sub filter4 { ... ; } # end sub filter4()