for my $i (0 .. $eos) {
    for my $j ($min .. $max) {
        last if $j > $eos-$i;
        print substr($str, $i, $j),"\n";
    }
}

##</code><code>##

my $min = 2;                      # minimum match length
my $max = 32767;                  # maximum match length
my $str = "ABCDEF";
my $eos = length($str);

##</code><code>##

my $min = 3;                      # minimum match length
my $max = 3;                      # maximum match length
my $str = "ABCDEF";
my $eos = length($str);