sub double_it {
   local ($_) = @_;

   (my @chars1) = (my @chars2) = split //;
   pop   @chars1;
   shift @chars2;

   return join ' ',
          grep { !/\s/ }
          map { $chars1[$_] . $chars2[$_] }
          0..$#chars1;
}