$string = q[Jon 'Maddog' Orwant];
$string = q{Jon 'Maddog' Orwant};
$string = q(Jon 'Maddog' Orwant);
$string = q<Jon 'Maddog' Orwant>;

##</code><code>##

m/(q[qxwr]?)(\[.*?\]|\{.*?\}|\(.*?\)|\<.*?\>)/