Should not that hard to explain :)
#!/usr/bin/perl use strict; use warnings; # My array should read Obfuscation :) my @s = ("\117"=>"\142","\146"=>"\165","\163"=>"\143","\141"=>"\164"," +\151"=>"\157"=>"\156"); my ($c) = $^X =~ m/(?:.*[\/|\\]){0,}(\w+)/; print uc(++$s[8]).$s[3].($s[4]).++$s[4]."\40".$s[6].$s[10].lc($s[0]).$ +s[7]."her\40".ucfirst($c)." "."h".$s[6].$s[5]."ker".",\n";

"We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.

In reply to Yet another (easy) one by jbrugger

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":