perl -p -i -e "s///g"