#!/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;