while ($string =~ qr(...)) {
    $string = qq($1'$2);
}