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

   my @list = /(\w)(?=(\w))/g;

   my @pairs;
   push(@pairs, shift(@list).shift(@list))
      while @list;

   return join(' ', @pairs);
}