A friend of mine got a professorship at our university. You can see his name by running this little obfu:

#!/usr/bin/perl -l

                             s,,close$^S;
                             do{;s// /cx;
                               AUTOLOAD{$
                               {+'|'}++?&
                               _:&__}open
                               $|=>'>'\,$
                               $out;sub _
                               {$..=chr($
             _+97 )            foreach qw     $ -65 10
        + 18 18 20 13 6$;      $.}s/ /abs    length
     uc ord and     push\@_    => chr ord   for qw[
  join utime                   study tied  ]/&&s/
  $;//;sub                     __{unpack  ("u*"
  =>'$'.                       '9\'(N(```')}~!
  eval};                       eval q!${y-+--;
  Culture                      x 1}.=substr $_
  \,$&=>$                      ^Sfor qw q  cmp+
   hex ref                     if sub tie   index\
     accept                    next|q!;${    ucfirst
      join ''           =>@    _}=sub{;$;    .=chr oct
       ("0b$_")for(1110000     =>+1110010     \,1101111\,
         1100110=>101110       \,100000);     $;},e&print
 
    $Just->() => $another->() => $Culture => $hacker->()
[download]

We made a t-shirt for him with this, and he was very happy, but now he has even more work (deobfu ...)

--Frank