perl -p -i.bak -e "~s|[Calle[-\s]|C\/|" [Dateiname]