use strict; use warnings; use LWP::Simple; my $node = shift or die 'gimme a node #'; my $html = get("http://www.perlmonks.org/index.pl?node_id=$node"); my ($exp) = $html =~ m{Experience:\s+(\d+)}; my %level = ( initiate => 0, novice => 20, acolyte => 50, scribe => 100, monk => 200, friar => 500, abbot => 1000, bishop => 1600, pontiff => 2300, saint => 3000, ); print "You made Monk!!!\n" if $exp >= $level{monk};