while (<FILEHANDLE>)
  {
  my $HTML = &GetHTML($_);
  while ($HTML =~ /<tag>(.*)<\/tag>/)
    {
    our @Results;
    push (@Results, $1) while />(.*)</g;
    shift @Results; # I don't want the first result.
    print @Results;
    }
  }