It's not realy obfu but it's my first JAPH and I am proud of it.

 
#!/usr/bin/perl

    $_
      =
 "\x8f".               "\x00".    "\x8d\x00\x96\x00".    "\x91\x00".
 "\x8b\x00".       "\xdf\x00".    "\xdd\x00\xb5\x00".    "\x8a\x00".
 "\x8c\x00".       "\x8b\x00".    "\xdf".                "\x00\xbe".
 "\x00".  "\x91\x00".  "\x90".    "\x00".                "\x8b\x00".
 "\x97".  "\x00\x9a".  "\x00".    "\x8d\x00\xdf\x00".    "\xaf\x00".
 "\x9a".    "\x00".    "\x8d".    "\x00\x93\x00\xdf".    "\x00\xb7".
 "\x00".               "\x9e".    "\x00".                "\x9c\x00".
 "\x94".               "\x00".    "\x9a".                
 "\x00".               "\x8d".    "\x00\xde\x00\xa3".      "\x00".
 "\x91".               "\x00".    "\xdd\x00\xc4\x00".      "\xf5";

@identity=split("\x00");foreach(@identity)
{$first_name=unpack "H",$_;$last_name=unpack "h",$_;
$_=pack("c",255-hex("$first_name$last_name"));}
$me=join("",@identity);
eval $me;
[download]