perl -p -e "s|\b([A-Z]+)\b|\1|g;" yourfile