my @lines = "Aliquam vitae ipsum id felis finibus congue. Ut molestie scelerisque purus,
 sit amet rhoncus leo aliquet ac. In eu lobortis quam. Maecenas auctor semper enim,
 ut convallis sapien dictum eu. Sed arcu ex, ornare et porttitor vitae, interdum a mi.
 Mauris rutrum luctus rhoncus. Quisque velit quam, convallis vel est at, tincidunt accumsan velit.
 Fusce ut <u>metus ut which may either exceed \$1,000.00 or OK. G. LAT,
 semper nunc, in dictum magna.</u>
 Aliquam ac vestibulum dolor. Praesent in magna nisi. Cras nec viverra ligula. Suspendisse
 efficitur imperdiet eros, <u>XXsed rhoncus sapien euismod cursus. Vestibulum a posuereYY</u> elit,
 eget tristique eros. Etiam et lectus venenatis, aliquet dui vitae, posuere lectus.";
;
  my $y = $top - 162;

 for my $rows (@lines){
   
   $txt->font($fnt,11);
   $txt->translate( $left_margin,$y);

   if( $rows =~ /<u>(.*?)<\/u>/xms ){
       
       my $change = $rows;
       $change =~ s/<u>(.*?)<\/u>/$1/;
       $txt->text("$change",-underline => 'auto');
     
   }else{
       
     $txt->text("$rows");
     
   }

          $y-=17;
 }