my $regex2 = qr% \n
   (?:
      \QI'll be good.\E
      | Hushing
      | Hrumph
      | \Q>:[\E | \Q:-(\E | \Q:(\E | \Q:-c\E | \Q:c\E | \Q:-<\E | \Q:<\E
      | \Q:-[\E | \Q:[\E  | :\{ | \Q:-|\E | \Q:@\E | \Q>:(\E | \Q:'-(\E
      | \Q:'(\E
      | \QShutting up now.\E
      | \QBut, but...\E
      | \QI'll be quiet.\E
   )
%mix;


##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @res = ( qr% a{1 %,
            qr{ a\{1 },
            qr% a\{1 %,
            qr% a\Q{\E1 %,
            qr{ a\Q\{\E1 },

            qr% a{{1}1 %,
            qr{ a\{{1}1 },
            qr{ a\{{1}1 },
            qr{ a\{\{1\}1 },
            qr% a\{{1}1 %,

          );

say $_, ' a{1 ' =~ $_ for @res;


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,