Sending my wife the following:

$readme = "Run this with Perl";
$b = "00001001010101010000001001001111000000100000001101001001
@s = split(//,"11100110011");
@g=map{unpack("N",pack("B32",substr("0"x32 .$_,-32)));}eval{

Is an act of ultimate geekiness. I'm not good at obfuscation, but for the purpose it's enough. (It prints "I love you").

Maybe the fact that I can send such a thing to my wife ("run this with Perl !") is also a sign of geekiness... Not many can brag with a spouse who can actually run Perl :-)