foreach $foo (@foo) { 
$foo =~ s/^\<a.*\>(.*)\<$/$1/gi; 
push(@links,$foo);
}