if ($line =~ /a HREF=\"(.*?)\" Next Page/)
{
   print $1;
}