#!/usr/bin/perl
use utf8;
use charnames ':full';

while ($line=<>){
	@array = split(/ /, $line);
	foreach $x (@array){
		if ($x=~ /\N{MODIFIER LETTER GLOTTAL STOP}/){ #full character name for a glottal stop
			print "$x\n";
		}
	}
}

##</code><code>##

#!/usr/bin/perl

use utf8;
use charnames ':full';

while ($line=<>){
        @array = split(/ /, $line);
        foreach $x (@array){
                if ($x=~ /\N{LATIN SMALL LETTER K}/){ #full character name for a 'k'
                        print "$x\n";
                }
        }
}

##</code><code>##

#!/usr/bin/perl

use utf8;
use charnames ':full';

while ($line=<>){
	@array = split(/ /, $line);
	foreach $x (@array){
		if ($x=~ /\x{02c0}/){ #code for glottal stop 
			print "$x\n";
		}
	}
}

##</code><code>##

#!/usr/bin/perl
use utf8;
use charnames ':full';

while ($line=<>){
        @array = split(/ /, $line);
        foreach $x (@array){
                if ($x=~ /\x{006b}/){ #code for lower case 'k'
                        print "$x\n";
                }
        }
}

##</code><code>##

#!/usr/bin/perl

use utf8;
use charnames ':full';

while ($line=<>){
        @array = split(/ /, $line);
        foreach $x (@array){
                if ($x=~ /\N{MIDDLE DOT}/){
                        print "$x\n";
                }
        }
}

##</code><code>##

perl oneidaregex.pl oneidafull.txt
Ne&#769;·
niwakkalo&#769;·t&#652;.
niyaw&#652;&#769;·u.
Ne&#769;·
kwi&#769;·