#!/usr/bin/perl

use HTML::TokeParser::Simple;
use strict;

warn "Strip HREF\n";
my $p = HTML::TokeParser::Simple->new($ARGV[0]);

while ( my $token = $p->get_token )
{
        next if ($token->is_start_tag('a') || $token->is_end_tag('a'));
        print $token->as_is;
}

warn "Extract HREF\n";
my $p = HTML::TokeParser::Simple->new($ARGV[0]);

while ( my $token = $p->get_token )
{
        next unless ($token->is_start_tag('a'));
        print $token->return_attr->{href}, "\n";
}