Select Code to Download

#!/usr/bin/perl

...
$s =~ s/ /./g;
$s =~ s/\cJ/<<LF>>\cJ/g;
print substr($s,0,500), "\n";

Using LWP to grap http://groups.yahoo.com.
Printing first 500 characters.
...
..<<LF>>
......<META.content="free.email.groups,.mailing.lists,.communities,.ma
+jordomo,.e-mail,.bounce.handling,.mlm.software,.listserv,.Yahoo!.Grou
+ps,.newletters,.announcement,.email.lists,.list.hosting".name=keyword
+s><<LF>>
....<META.content="Yahoo!.Group

@_="the journeyman larry disciple keeps learning\n"=~/(.)/gs,
print(map$_[$_-77],unpack(q=c*=,q@QSdM[]uRMNV^[ni_\[N]eki^y@))