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;
   }
}