#!/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;

##</code><code>##

#!/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 $_;