open(R,"file.html") || die("errro, $1n\"); 
    while (<R>) {
     $pattern = "Notes ID"; 
     next if ! /$pattern/;        
     die "End of EOF \n" if ! defined ($_=<R>);
     $_ =~ s/<[^>]+>//g; # This just removes HTML Tages 
     $_ =~ s/<!//g; # This removes more HTML tages 
     $_ =~ s/&nbsp//g; # Remove HTML spaces 
     $_ =~ s/;//g; # remove ; 
     printf ("$pattern = $_ \n"); # Print patter