qr{
  /
  (?:
    # char class
    \[ \^? ]? (?: [^]\\]+ | \\. )* ]
    |
    # other schtuff
    (?: [^[\\\/]+ | \\. )*
  )*
  /
}x;