#!/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";
		}
	}
}