sub squote {
   my $s_pos = pos;

   my $match = /
      \G
      '       
      (?>
         (?:
            \\.
         |
            [^\\']
         )*
      )
      '
   /xsgc;

   my $e_pos = pos;

   if ($match) {
      $_[0] = substr($_, $s_pos, $e_pos-$s_pos);
      return 1;
   } else {
      pos = $s_pos;
      return 0;
   }
}

##</code><code>##

sub squote {
   my $s_pos = pos;

   RETRY: {
      local our $at_eof = ...;
      local our $need_more = 0;
      my $match = /
         \G
         (?: \z (?{ $need_more = !$at_eof }) )? '
         (?>
            (?:
               \\
               (?: \z (?{ $need_more = !$at_eof }) )? .
            |
               [^\\']
            )*
         )
         (?: \z (?{ $need_more = !$at_eof }) )? '
      /xsgc;

      if ($need_more) {
         ...
         pos = $s_pos;
         redo RETRY;
      }

      my $e_pos = pos;

      if ($match) {
         $_[0] = substr($_, $s_pos, $e_pos-$s_pos);
         return 1;
      } else {
         pos = $s_pos;
         return 0;
      }
   }
}

##</code><code>##

sub ident {
   my $s_pos = pos;

   my $match = /
      \G
      [a-zA-Z_]
      [a-zA-Z0-9_]*
   /xsgc;

   my $e_pos = pos;

   if ($match) {
      $_[0] = substr($_, $s_pos, $e_pos-$s_pos);
      return 1;
   } else {
      pos = $s_pos;
      return 0;
   }
}

##</code><code>##

sub ident {
   my $s_pos = pos;

   RETRY: {
      local our $at_eof = ...;
      local our $need_more = 0;
      my $match = /
         \G
         (?: \z (?{ $need_more = !$at_eof }) )? [a-zA-Z_]
         (?> [a-zA-Z0-9_]* )
         (?: (?= . ) | (?{ $need_more = !$at_eof }) )
      /xsgc;

      if ($need_more) {
         ...
         pos = $s_pos;
         redo RETRY;
      }

      my $e_pos = pos;

      if ($match) {
         $_[0] = substr($_, $s_pos, $e_pos-$s_pos);
         return 1;
      } else {
         pos = $s_pos;
         return 0;
      }
   }
}