use LWP::Simple;
use strict;
*a = \"http://perlmonks.org/?node_id";
printf qq
m%2d %7d %s\nm,m
leve.="(\d+)"l,m
exp="(\d+)"e,m
foruser="([^"]+)"ffor map get qq
m$a=16046;for_userid=$_m,map m
user_id="(\d+)"ug,get qq
m$a=15851m;