#!/usr/bin/perl


for $file (@ARGV) {
    $t = `cat $file`;
	$t =~ s/<p><\/p>//g;
open (F, ">$file") or die;
print F $t;
close F;
}