An obfu for a friends e-mail address, a bit boring... I'm sure it could be done better...

#!/usr/bin/perl
@in = qw(F 0x30 11001111 22n55 230 8 01110111n01100101n01100010 /);
$t = shift @in; my $f = ord ($t);$t = sprintf "%b", $f;$f = reverse 
$t; $f .= '0';$t = pack('B8', $f); unshift @out,$t; $t = shift @in;
$r=chr (oct $t); unshift @out,$r;  $t= shift @in; $t =~ s/1/a/g; $t
=~ s/0/1/g; $t =~ s/a/0/g; $r = pack('B8',$t); unshift @out, $r; $t
= shift @in; my ($x, $y, @z) = split /n/,$t;($x,$y) = ($y, $x % $y)
while $y; $t = ($x .= $y); unshift @out, (chr $t); $t = shift @in ;
$r = $t >> 1 ; unshift @out , (chr $r); $t = shift @in; $r = $t**2;
unshift @out, (chr $r) ; $r = shift @in ; @z = split /n/, $r ;while
(@z) {$r = shift @z ; $t = pack ('B8', ($r) ); unshift @out , $t; }
; $r = shift @in ; $t = ord ($r ) ; $t-- ; unshift @out, (chr $t) ;
$^X=~ s/^(\w\:\\|\/)//; $^X=~ s/\w+(\/|\w\\)//g; $^X =~ s/\.exe// ;
$^X=~ /\w(\w)\w\w/ ; $r = ord$1; $r--; $t = (chr $r);  unshift @out
,$t;unshift @out, $1; my @outagain = reverse @out; print @outagain;

[download]

The Evil but Fickle Dr Lambado
I am a .sig virus, please make me your sig and help me spread

In reply to e-mail obfu fun by dr_lambado

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.