Help for this page
if($val !~ /(.*)<rss version=\"(1|2\.0)\"(.*)/is ) { die qq{ Not a RSS Feed....Dying here..\n }; }