gistfile1.txt

#!/usr/bin/env perl
use strict;
use HTML::TokeParser;

my $filename = shift or die;
my $p = HTML::TokeParser->new($filename);

my $html;
while (my $token = $p->get_token) {
    if ($token->[0] eq 'S'
            and $token->[1] eq 'a') {
        # ;;
    }
    else {
        if ($token->[0] eq 'T') {
            $html .= $token->[1];
        }
        else {
            $html .= $token->[-1];
        }
    }
}
print $html;