Assuming jbware's regex is correct (not testing it), wouldn't it be better to write:

$a =~ s#'#\'\'#g;

That way you aren't tracking around a bunch of backslashes? Or am I remembering wrong and s/// doesn't allow it?