sub wsp {
   $_ = shift;
   join ' ', split;
}