Select Code to Download

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

   my $POLICY1 = "";
   my $DATE_CR = "";
...
   $POLICY4 =~s/<BR>/\n/g;
   $POLICY5 =~s/<BR>/\n/g;
   $POLICY6 =~s/<BR>/\n/g;

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