#!/usr/bin/perl ther perl whacker#;#
no warnings;q#just another perl whacker#;#
no strict; qq#just another perl whacker#,#
           qw#just another perl whacker#;#
$\=\0046;   q#just another perl whacker#,#
$/ = $|||q|.|||$;;
           qq#just another perl whacker#,#
$_=q;;;[chomp(@_=<DATA>)];;$|
=           q,just another perl whacker#,,
print $\     #just another perl whacker#,,
=          qw##,,substr(uc<DATA>,0,1)  #~|
or           #just another perl whacker#,|
q;just another perl whacker;;
$_=(join'',qq'@$_'|0>>1|eval|0<<34);~~s{\.}{qq'\n'};
$_="@{_}"||$|,print&&~~1||eval print
__END__
just.another.perl.whacker.
[download]

works on active (628) and indigo (626) perl 5.6 and doesn't on 5.005_03 for i386 freebsd(aka jcwren's machine, and prolly other pre 5.6)

#!/usr/bin/perl st another perl whacker#;,
#! warnings;q#just another perl whacker#;#
#! strict; qq#just another perl whacker#,#
           qw#just another perl whacker#;#
$\=\0046;   q#just another perl whacker#,#
$/ = $|||q|.|||$;;
           qq#just another perl whacker#,#
$_=q;;;[chomp(@_=<DATA>)];;$|
=           q,just another perl whacker#,,
print $\     #just another perl whacker#,,
=          qw##,,substr(uc<DATA>,0,1)  #~|
or           #just another perl whacker#,|
q;just another perl whacker;;
$_=(join'',qq'@$_'|0>>1|eval|0<<34);~~s{\.}{qq'\n'};
$_="@{_}"||$|,print&&~~1||eval print
__END__
just.another.perl.whacker.
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"