perl -pi -e 's/[a-z]/-/gi'

##</code><code>##

perl -CIO -pi -e 's/[[:alpha:]]/-/gi'