I haven't yet done much work with obfuscation, but perhaps now would be a good time to start. I'll attempt to undo this obfu and explain what's being done. 

# The first three lines are assignment
@a = ("nz ujnf","nz mpwf","nz ejtdjqmjof","nfnpsz");
$b = "Pearl H. Felzien  Born August 15, 1922  Died September 22, 1998"
+;
$c = "Michael N. Felzien\nhttp://www.pied.com\nadmin\@pied.com";

# We make a second copy of $b in $nb
$nb = $b;

# We take $b, and make it into the string "Perl"
$b =~ s/^(.).*/$1erl/; 

# Then we screw it all up again making it "Pfsm"
$b =~ tr/a-z/b-y/;

# Now we assign $lv to the second element in $a, "nz mpwf"
# (which, amazingly enough, is later translated a different
#  way for the text "my love")
$lv = $a[1];

# And then we remove the first three characters
$lv =~ s/^...//;

# Transforming some more..
$lv =~ tr/a-y/a-z/;

# We put $b and $lv into one big obfuscated string
$d = "\n$b jt nz hsfbu $lv jo mjgf!\n";

# And finally, we put readable text into $d
$d =~ y/b-z/a-z/;

# Prints the text "Perl is my great love in life!" 
print $d;

# Begin work on the second line, which starts tabbed in one
$e = "\tI efejdbuf";

# Whirl it through tr
$e =~ y/b-y/a-z/;

# Presto, we print "I dedicate"
print $e;

# Now we're now going to loop through each element in
# @a, using a C style for loopfor($i=0;$i<@a; $i++) {

   # We'll change the contents of @a in place with tr
   $a[$i] =~ tr/b-z/a-z/; 

   # If we're at the last element in @a...
   if($a[$i]eq$a[-1]) {
      
      # Assign some gurgled text to $f
      $f='boe nz mjgf up ifs';
  
      # And we'll immediatly "ungurgle" it
      $f=~y/b-z/a-z/;

      # This prints "and my life to her memory."
      print " $f ".$a[$i].".\n";
   }
   # If it's not the last element, print it.  The first
   # three elements we'll be printing are "my time",
   # "my love", "my discipline"
   else {
      print " ". $a[$i] . ",";
   }
}

# Lastly, we print the unobfuscated $b (now $nb) and $c,
# which are his mothers name and his signature
print"\n--$nb\n\n$c\n\n";

[download]
Some excellent obfuscation!

Michael, I'm sorry for your loss. I wish you the best of luck in all you do. Thanks for the code, and keep up the good work!
-Eric

In reply to Re: A tribute to my Mother by andreychek
in thread A tribute to my Mother by Anonymous Monk

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


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.