#!/usr/local/bin/perl

require 5.000;
use Env;
use Cwd;
use File::Basename;
use Text::Wrap qw(wrap $columns $huge);

$columns = 256;
$huge = "die";

my $infile = $ARGV[0];
open(FILEREAD, "$infile.txt");
  open(FILEWRITE, ">  $infile.temp");
    $i=1;
   while (<FILEREAD>)
   {
    chomp $_;
    $_ =~ s/<p>/\n<p>/ig;
    print FILEWRITE wrap("", "", $_), "\n";
    $i++;
   }
  close FILEWRITE;
close FILEREAD;