Create mgsub.R

A custom function that applies gsub on multiple patterns and variables.