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