my @html=get("http://setiathome.ssl.berkeley.edu/stats/team/team_2414.html");
print "Number of lines: ", scalar(@html), "\n";

##</code><code>##

#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my $line = get("http://setiathome.ssl.berkeley.edu/stats/team/team_2414.html"); 
$line =~ s/\cM//g;
$line =~ s/<(br|p)>/\n\n/ig;
$line =~ s/<(?:[^>'"]*|(['"]).*?\1)*>//gs;
if ($line =~ m/(\d+\)\sHelmet\s\d+\s+([\d.]+\s\w+\s){5})/) {
    print $1;
} else {
    print "Not found\n";
}

##</code><code>##

4) Helmet
119
1890 hr 58 min
15 hr 53 min 25.8 sec