perl -pi.bak 's/