hi gzayzay,

try to replace your 'while' loop with this one:

while (<XFILE>)         
{
   chomp;
   print (LIST "$_","\n") if
      /\<(name|keywords|description|results)\>/ .. /\<\/$1\>/;
}
[download]

Enjoy,
Mickey