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

##</code><code>##

A-IK-NP-TVWYZ

##</code><code>##

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