#!/usr/local/bin/perl


$ignore="";


while (<stdin>) {
    if (/<o:p><\/o:p>/) {
	$ignore .= $_;
	s/<o:p><\/o:p>//g;
    }
    print;
}

open (T, ">logg");
print T $ignore;
close(T);