#!/usr/bin/perl
open IN, "list2";
while(<IN>)
{s/.*<A HREF//;
s/<\/A>.*//;
s/>.*//;
print;
}