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