perl -pi -e 's/source "([^"\\]*(?:\\.[^"\\]*)*)"/source $1/g'