#! c:\perl\bin -w

use strict;

use HTML::TokeParser;
my $p = HTML::TokeParser->new(shift||die);

while (my $token = $p->get_token) {
  print $token->[2]{'href'}, "\n" if ($token->[0] eq 'S' && $token->[1] eq 'a');
}