my $fseq6 =   'CCGCGCTC';
my @nsub6 = ( 'CCGCG',
               '*****',
                 'CGCTC'
                 '*****',);

my $fseq5 =   'CCGCGCTC';
my @nsub5 = ( 'CCGCG',
               '*****',
               '*****',
                 'CGCTC');

my $fseq4  =  'CCCCGCGC';
my @nsub4  = ('CCCCG',
              '*****',
                 'CGCGC');