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