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.
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; = qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
|Replies are listed 'Best First'.|
Re^2: Perl script leads to MySpace sexual misconduct arrest
by rob_au (Abbot) on Oct 17, 2006 at 13:59 UTC