#!/usr/bin/perl --
use strict;
use warnings;

use Data::Dumper;

my $grammar = do {
  use Regexp::Grammars;
  qr{
<debug:on>
<delimited_string>


<token: delimited_string>
    <delim=(['"`])> <content=(.*?)> <rdel=\delim>

}xms; };

my $string = "'hi'";
if ($string =~ $grammar) {
  print Dumper \%/;
}
__END__
=====> Trying <grammar> from position 0
'hi'   |...Trying <delimited_string>
       |   |...Trying <delim=(['"`])>
hi'    |   |    \_____<delim=(['"`])> matched '''
       |   |...Trying <content=(.*?)>
       |   |    \_____<content=(.*?)> matched ''
       |   |...Trying <rdel=\delim>
       |   |    \FAIL <rdel=\delim>
i'     |   |    \_____<content=(.*?)> matched 'h'
       |   |...Trying <rdel=\delim>
       |   |    \FAIL <rdel=\delim>
'      |   |    \_____<content=(.*?)> matched 'hi'
       |   |...Trying <rdel=\delim>
[eos]  |   |    \_____<rdel=\delim> matched '''
       |    \_____<delimited_string> matched ''hi''
        \_____<grammar> matched ''hi''
$VAR1 = {
          '' => '\'hi\'',
          'delimited_string' => {
                                  '' => '\'hi\'',
                                  'content' => 'hi',
                                  'delim' => '\'',
                                  'rdel' => '\''
                                }
        };