$s =~ s/'/'\\''/g;