i Did find a quick way that does work very well.

If you have an file that looks something like this
; Notes ID
; bhenry

this will work

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
[download]