From the article:
Wired writer Kevin Poulsen put together about 1,000 lines of Perl code that match data from the National Sex Offender Registry to MySpace user profiles, looking for perpetrators arrogant or witless enough to sign up for a MySpace account under their real names.
1,000 lines of perl code to scrape myspace web profiles? Perhaps Mr. Poulsen should have dropped by here and learned about some space saving steps. WWW::Mechanize > LWP > use IO::Socket;. ;-)
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)