Select Code to Download

my $str = 'braaaafdhjklghaa';
my $sstr = 'aa';
my $len = length $sstr;
for ( 0 .. ( length $str ) - $len ) {
   print "Found at $_\n" if substr ($str, $_, $len) eq $sstr;
}