since my nick is beretboy I decided to do some obfu in the shape of a beret to celebrate my newly aquired scribe status.
$beret = "
%%
%%%%%98%%%%%%%%101%%%%%%%%114%%%%%%%101%%%%%%%
%%%%%116%%%%%%%%%98%%%%111%121%%%%32%%%%%105%%%%%%
%%%115%%%%%%32%%%%%110%%%%%111%%%119%%32%%32%%97%%%%
%%%%%%%%%%%%32%%%%%%%%%%%115%%%%%%%99%114%%%%%%%
%%%%%%%%%%%%105%%%%%%%%%%%%98%%%%101%33%";
@poit = split("%", $beret);
@narf = map(chr, @poit);
$_ = join("", @narf);
y sssscccc;
print;
"Sanity is the playground of the unimaginative"
-Unknown