Try Paraphilic infantilism. LOL - the baby carriage!

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)->Ma
+xdepth(3)->Sortkeys(1)->Dump(),q{ };
    };
__DATA__
[download]