$a =~ s/'/q!\'\'!/eg && print "Found a ' in \$a\n";