#! /usr/bin/perl -w

use strict;

my $a = "Input String: aaAabBAAa";

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

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