use HTML::Parser;

HTML::Parser->new(
                  default_h =>
                  [sub {
                     print shift;
                   }, "text"],
                  text_h =>
                  [sub {
                     local $_ = shift;
                     s/\"/"/g;
                     print;
                   }, "text"],
                 )->parse(join "", <DATA>);

__END__
<a href="bob.html">"Hi!"</a>