print map{y/X_/\n /;$_}map{$n=$_;map{$$_[$n]}map{[/./g]}
qw(JaercX unrlk so__e ttphr _hea.)}(0..5)
[download]

Reasonably obfuscated, and under 100 characters, even when including the two newlines. (And yes, this could be one line, but that wouldn't then fit nicely as an email signature)

Incidentally, I was inspired to do this when I ran across some old (+6 months in production) code of mine which said:

sub interleave {
  map { my $ndx = $_; map {$_->[$ndx];} @_;} (0..$#{$_[0]});
}
[download]