My Personal Wikiverse

Wikimedia: WikipediaWikisource en (main) – WikibooksWikiquoteWiktionaryCommonsMeta
Other: WikilivresUncyclopedia


#!/usr/bin/perl 

use strict;
use warnings;

use encoding 'utf8';
use charnames 'latin';

while (<>) {
    s{ Cx }{\N{C with circumflex}}gxms;
    s{ cx }{\N{c with circumflex}}gxms;
    s{ Gx }{\N{G with circumflex}}gxms;
    s{ gx }{\N{g with circumflex}}gxms;
    s{ Hx }{\N{H with circumflex}}gxms;
    s{ hx }{\N{h with circumflex}}gxms;
    s{ Jx }{\N{J with circumflex}}gxms;
    s{ jx }{\N{j with circumflex}}gxms;
    s{ Sx }{\N{S with circumflex}}gxms;
    s{ sx }{\N{s with circumflex}}gxms;
    s{ Ux }{\N{U with breve}}gxms;
    s{ ux }{\N{u with breve}}gxms;
    print;
}