$code .= join ', ', map { local $_ = $_; s/(['\\])/\\$1/g; "\'$_\'" } @arguments;