PERL problem

[Sanduar]

Hi Leute ich hab da ein kleines Problem bei dem ich einfach net weiterkomm.

ich will mit einem kleinen Perl programm von HTML seiten, (die ich lokal auf meinen Rechner habe) einen gewissen bereich rausschneiden und in einer anderen (neuen) HTML seite einfügen

so, das ist mein Code:

aber er funzt net!

kann mir da jemand helfen?

#!/usr/bin/perl

use strict;

use warnings;

my @inhalt;

my $zeile;

my $teilstring;

my $test;

my $i;

my $a;

my @verzeichnis;

my $element;

my $test2;

my $dir;

my $anzahl;

my $pfad;

$pfad =".";

open(OUTFILE, $pfad);

@inhalt=<OUTFILE>;

print "TEST";

foreach $element (@inhalt){

if($test = substr($element , -4) == "html" and $test2 = substr($element , 0, 1) == "k"){

print "$element\n";

@inhalt =<OUTFILE>;

print "TEST2";

}

$anzahl = @inhalt; #// Anzahl Elemente von @inhalt

@inhalt = @inhalt[32..($anzahl-19)];

open(LOG, ">>test.html") or die "FEHLER: Datei kann nicht geschrieben werden...";

@inhalt=<LOG>;

print @inhalt;

print <LOG>;

close LOG;

close OUTFILE;

}