#!/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.

##</code><code>##

#!/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.