use strict;

 

my $content = `curl -s http://www.failheap-challenge.com/forum.php`;

my $wanted = lc($ARGV[0]) || 'members';

 

my %values = ();

if($content =~ /<div[^>]+id="wgo_stats".*?>(.*?)<\/div>/msi) {

  my $statblock = $1;

 

  while($statblock =~ s/<dt>(.*?)<\/dt>\s*<dd>(.*?)<\/dd>//msi) {

     my $name = $1;

     my $val = $2;

     $val =~ s/\D//g;

     $values{lc($name)} = $val;

  }

 

  print "Members: " . $values{$wanted} . " | members=" . $values{$wanted};

  exit;

 

print 0;