foreach my $lines (@lines){
    
 if( $lines =~ /<u>(.*?)<\/u>/igs ){
       print "\n $1\n";
  } 

}