Select Code to Download

$str =~ s{( \\ (?: [tnrfbae\\] | [xNo] \{ [-+,\w ]* \} | [0-7]{1,3}
     | x[0-9A-Fa-f]{0,2} | c[\@A-Za-z[\]^_?] ) )}{ qq{"$1"} }msxeeg;