use strict;

my $text = "ich ich ich ich ich ich";
my $c = 0;
my $du = "du";

$text =~ s!ich!$c++.$du!ge;

print $text;