#!/usr/bin/perl
#I want to take a file of text as input, split it into an array of words
#then search through the array for a word that matches the regular
#expression, printing all matches.
binmode STDIN, ":decoding(UTF-8)";
binmode STDOUT, ":decoding (UTF-8)";
use utf8;
use charnames ':full';

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