0: #!/usr/bin/perl 1: $a="User-Agent:PlMk";$u=" 2: xavier.penguinpowered.com 3: ";$h="GET / HTTP/1.\n";$u 4: =~s/\n//gs;$d=`echo "$h$a 5: "|nc $u 80`;$d=~s/.+?ml\r 6: (.+)/$1/s;$d=~s/\n+|\s+ \ 7: / /gsx;$d=~s/<a.+?f="(.*? 8: )">(.+?)<\/a>/$2($1)/sgx; 9: $d=~s/<(br|p|li)>/\n/g;$d 10: =~s/<.+?>//gsx;print"$d";
In reply to highschool yearbook blurb :-) by Xavier
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |