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;