Help for this page
#! perl -slw use strict; ... my $input = 'cowboycaddog'; deGlue{ print join '-', @_ } @lex, %morphs, $input;
c:\test>675520 cowboy-cad-dog cow-boy-cad-dog