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