Select Code to Download

#! perl -slw
use strict;
...
my $input = 'cowboycaddog';

deGlue{ print join '-', @_ } @lex, %morphs, $input;

c:\test>675520
cowboy-cad-dog
cow-boy-cad-dog