my $Str = "Insert into City_Policies (ID, DATE_CREATED, ISSEDBY, SUBJECT) 
  values ('$policynumber', '$DATE_CR', '$ISSUEDBY', '$newsubject')";
warn $Str;
$dbh->do($Str) or print "I died";

##</code><code>##

   my $POLICY1 = "";
   my $DATE_CR = "";
   my $POLICY2 = "";
   my $POLICY3 = "";
   my $POLICY4 = "";
   my $POLICY5 = "";
   my $POLICY6 = "";
   my $ISSUEDBY = "";
   my $SUBJECT ="";
   my $PURPOSE = "";

   $POLICY1 =~s/<br>/\n/g;
   $POLICY2 =~s/<br>/\n/g;
   $POLICY3 =~s/<br>/\n/g;
   $POLICY4 =~s/<br>/\n/g;
   $POLICY5 =~s/<br>/\n/g;
   $POLICY6 =~s/<br>/\n/g;
   $POLICY1 =~s/<BR>/\n/g;
   $POLICY2 =~s/<BR>/\n/g;
   $POLICY3 =~s/<BR>/\n/g;
   $POLICY4 =~s/<BR>/\n/g;
   $POLICY5 =~s/<BR>/\n/g;
   $POLICY6 =~s/<BR>/\n/g;

##</code><code>##

   my ($IDNUM,   $ISSUEDBY, $DATE_CR, $SUBJECT, $PURPOSE,
       $POLICY1, $POLICY2,  $POLICY3, 
       $POLICY4, $POLICY5,  $POLICY6) = $sth->fetchrow_array;

   $_ ||= '' for ($DATE_CR, $ISSUEDBY, $SUBJECT, $PURPOSE);
   $_ ||= '', s/<br>/\n/ig 
      for ($POLICY1, $POLICY2, $POLICY3, $POLICY4, $POLICY5, $POLICY6);