I took the obfuscated code from the GPF Subliminal Perl T-Shirt and further obfuscated it. I'm not happy with it yet but I'm still working on it. However, I do want feedback so I'm posting here for comments and suggestions.

#!/usr/bin/perl -w
@p=([split //,"mcsio-p.w/:th!a+rv+P+aR!ila++'"],
[split //,"/o.cmcfgww/pt+ydyeeFGde+etuFamI"]);
$l=$#{$p[0]}+$#{$p[1]}+1;
for $i (0..$l){$_.=$i%2?$p[0][int(($i-1)/2)]:$p[1][int($i/2)];}
$_=~s/\+/ /g;
$_=reverse $_;
print;
[download]

#!/usr/bin/perl -w
use strict;
sub _i($){int(($_[0])/2)}
my @p=([split //,"mcsio-p.w/:th!a+rv+P+aR!ila++'"],
[split //,"/o.cmcfgww/pt+ydyeeFGde+etuFamI"]);
my $l=$#{$p[0]}+$#{$p[1]}+1;
for my $i (0..$l){$_.=$i%2?$p[0][_i($i-1)]:$p[1][_i($i)];}
$_=~s/\+/ /g;
print $_=reverse $_;
[download]