$var =~ s/(["'])/\\$1/g;