#!/usr/bin/perl -w

use strict;

my $a = "Ti sats.";
my $b = "hsi  et";

my $c = j( $a, $b );
print $c."\n";

sub j {
my@a=split//,shift;my@b=split//,shift;return join'',map{$_,shift@b||''}@a;
}