$test = q/RunSql "delete sometable where strike like '%[A-Za-z]%'"/;

$test =~ s/(['%\[\]\\])/\\$1/g;

$sql = "update job set cmd='". $test ."' where jobname='somejob'";