open FH, "$file";
{
  local $/;
  $text = <FH>;
}
for($text =~ /<A NAME="([^"]+)">(.*?)(?!<A NAME=")/) {
  #file name is $1
  #text is $2
}