my @real;
my $target = qr/(:Timeplaner):Projekt,/;
while (<>) {
  if (/$target/) {
    push @real, $ARGV;
    close ARGV;
  }
}
@ARGV = @real;
$^I = "";
while (<>) {
  s/$target/$1$1,/;
  print;
}