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;
[download]

"Sanity is the playground of the unimaginative" -Unknown