use 5.026;

use Data::Dumper;
use Readonly;
use Regexp::Common qw[ delimited ];
use Regexp::Grammars;

my $grammar = qr{
        <nocontext:>
        <TEST>
        <rule: TEST>           <Quoted_String>
        <token: Quoted_String> @{[ qq[(?: $RE{delimited}{-delim=>q{'}}{-esc=>q{'}}) ] ]}
        };
if (q{'some string with containing a '''} =~ $grammar) {
    warn Data::Dumper->new([\%/],[qw(*/)])->Deepcopy(1)->Indent(1)->Maxdepth(3)->Sortkeys(1)->Dump(),q{ };
    };
__DATA__