use LWP::Simple;
    @html=get("http://setiathome.ssl.berkeley.edu/stats/team/team_2414.html");
foreach (@html) {
  $_=~s/\cM//g;
  $_=~s/<(br|p)>/\n\n/ig;
  $_=~s/<(?:[^>'"]*|(['"]).*?\1)*>//gs
 }
 
 foreach (@html) {
 chomp($_);
   if ($_=~/\bHelmet\b/) {
     print $_;
 }else {
   print "no\n";
 }    }