Here follows my interpretation, which lies on the edge of obfuscation...

$., $., *x = *.;
0 && Devel::Peek::Dump($.);
$.;

{dot=>1,speck=>1}->{ref(\$.)}?
water/$. == wet?
water == $.?
nobo:dy : knows : $.;

$^, $^,
# $.
$^ > $.,
$^;

$UNIVERSAL::, $UNIVERSAL::,
length(%UNIVERSAL::) == $UNIVERSAL::,
rand>.95&&kill($UNIVERSAL:: => $small),
$UNIVERSAL::;

$UNIVERSAL::watch |= $hands[1]
| $hands[999] | $hands[NaN],
$UNIVERSAL::time ^ $hands[NaN] or $land=happy,
$UNIVERSAL:: |= $powerful;

$person, $person,
substr($person, 0, 0) => !frying-pan;
DESTROY { $person->{life} }  # <-- witty, no? ;)
$person;

depressed ? a:mess ?
totally : worthless ?
who came up with $person ?
degraded : man : $person;

$^, $^,
# $person
$^ > $person,
$^;
[download]

_____________________________________________________
Jeff japhy Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;