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