sub xiv { eval " " =~ s/ * /chr length $&/egr }