#!/usr/bin/perl

use strict;

my $globstring;
my @list1;

while (<>) {
    chomp;
    s/>/>\n/g;
    $globstring.=$_;
}

@list1 = split /\n/, $globstring;

while (@list1) {
    $_=shift @list1;
    chomp;
    print "$1\n" if ($_ =~ /<a\s*href\s*=\s*\"([^\"]*)\"\s*>/) 
}