#! /usr/bin/perl -w

use strict;
use warnings;

my $a = "Input String: aaAabBAAa";

my $n = shift @ARGV;
$n --;

while ( $a =~ /((.)\2{$n})/ig )
{
    print "$1\n";
    pos($a) -= $n;
}