sub double_it {
   our @pairs; local *pairs;
   () = $_[0] =~ /(\w)(?=(\w))(?{ push(@pairs, "$1$2"); })/g;
   return join(' ', @pairs);
}