foreach my $line (@xml)
{
  chomp($line);
  if($line =~ /^\s*<(\w+)>[^\w*|\d*|<]/)
  {
        print "$1\n";
  }
}