in reply to Reading b/w tags
try to replace your 'while' loop with this one:
print (LIST "$_","\n") if
/\<(name|keywords|description|results)\>/ .. /\<\/$1\>/;
Yes, I watch meteor showers
No, I do not watch meteor showers
My meteors prefer to bathe
Results (161 votes). Check out past polls.