Select Code to Download

#!/usr/bin/perl -w
@p=([split //,"mcsio-p.w/:th!a+rv+P+aR!ila++'"],
...
$_=~s/\+/ /g;
$_=reverse $_;
print;

#!/usr/bin/perl -w
use strict;
...
for my $i (0..$l){$_.=$i%2?$p[0][_i($i-1)]:$p[1][_i($i)];}
$_=~s/\+/ /g;
print $_=reverse $_;