HTML Filtern

[_m3]

#!/usr/bin/perl -w
use strict;

my $ausgabe = 0;

open(IN, $ARGV[0]) or die "Lesefehler! Konnte Datei '$ARGV[0]' nicht lesen - $!\n";
while(<IN>) {
	chomp;
	if( // ) {
		$ausgabe = 1;
	} elsif( //) {
		$ausgabe = 0;
	} else {
		print "$_\n" if($ausgabe);
	}
}
close(IN);

UNTESTED!