gugod/test-combining-characters.pl

## test-combining-characters.pl
#!/usr/bin/perl -l
use encoding 'utf8';

for my $cchar ("\x{0302}", "\x{030f}") {
    print join " ", map { chr($_) . $cchar } 32..126;
    print "----";
}
	#!/usr/bin/perl -l
	use encoding 'utf8';

	for my $cchar ("\x{0302}", "\x{030f}") {
	print join " ", map { chr($_) . $cchar } 32..126;
	print "----";
	}