open (INPUT, "<$ARGV[0]");

while (<INPUT>){
	if ($_ =~ /^<P><pre>/){
		s/<P><pre>//g;
		print;
	} elsif ($_ =~ /^</) {}
	else {
		print;
	}
}