my $counter=5;
while($mod_textformator_text =~ s/(\[img\])([a-zA-Z0-9+-_.\/:]*?)(\[\/img\])/<img src="$2">/)
{
  $counter--;
  last if($counter==0)
}

print "$counter mal Ersetzt.\n";