perl -0777 -ne 'print "" . ( join "", "A" .. "Z" ) =~ s/[^$_]/ /gr =~ s/(?<=\w)\w*(?=\w)/-/gr =~ s/ +/ /gr'