sub double_it {
   return join ' ', $_[0] =~ /\w(?=\w(?<=(..)))/g;
}