Select Code to Download

$text =~ s/ 
    (?<!\\)'                     # A quote, NOT after a backslash
    (?:[^'\p{IsC}]*?(?:\\')?)*?  # This is hard to explain...
...
    (?:[^']*?(?:\\')?)*?         # More stuff...
    (?<!\\)'                     # Another single quote
    /'???'/gx;