Zähler zaubert Leerzeichen

[ryker]

Soso- wir wollen hier neuerdings komplette listings lesen. Ganz neue Charta, aber sei's drum:

#!/usr/bin/perl -w
use strict;
my ($testfile, @tags, $cut, $kriterium, $new);

$testfile="test.html";
$kriterium="<tag>";
$new="<newtag>";

open (TAGS, "$testfile") || die ("file: $!\n");
@tags=<TAGS>;
close TAGS;

foreach (@tags)
{
 $i++;
 $cut=$i if ($_=~ m/$kriterium/);
}
splice (@tags,$cut,1,$new);

open (NEW, ">$testfile") || die ("input: $!\n");
print NEW "@tags";
close NEW;

Läuft übrigens lokal ohne Beteiligung irgendwelcher Server- und das auch problemlos, denn die neue Datei ist OK (bis auf ein Zeichen)- warum sollte Perl da warnen?
Und: Zu was befähigt dich das jetzt?

ryker