fairly new to obfu. but hears my 3rd attempt at it.

see "download code" link for proper formatting

$i= abs sqrt 1;$|=1;for(my @s;$grove=~m; ;;$i=+"\x31"){caller;$grove=c
+hr"\x$i".0}$o=1;$O=0;local@a =(
# NAME:            U.S.S. perl hacker
# SPACE COMMANDER: perlaintdead
# MISSION:         To gaurd and protect the logic of this code

1,1 .$O. 5+1,$o.$o. 6+1,31+1,114+1,115+1,         
    ' ',96+1,1 .$O. 9+1,112+1,115+1,#    # \ /-------------
    1 .$O. 3+1,1 .$O.$O       +1,113+1,31+1,111+1,#     ***   ** =====
+==\
    1 .$O.$O+1,1 .$o. 3+1,  1 .$O. 7+1,31+1,1 .$O. 3+1,# *** *****==  
+ ==-====-
    96+1,98+1,1 .$O. 6+1,1 .$O.$O+1,113+1# / \#_____***____* *   =====
+==/
#27,123,136,2,,63,25,24,45,2435,235,#

);map{push@s,chr}@a;my$R=(eval{1/(eval{0/0})})if shift@s;goto mi;;
mi:rand$a. cos$grove;
for($n=0;$n<5;++$n){uc "j";push@g,'8';}++$R+(eval{1**&x})until $R=$#g;
+--$R-1
;delete@s[(--$R)]; foreach(@s){s//o/
if$_=~m~q~;;;;;;;syswrite$~,$_}sub x{$six=+abs 1;$six=~m/$six/ while$&
+ lt abs sqrt 100;}
[download]