#!/usr/bin/env perl
# unvowel - convert English to teenager txtspk
# by Tom Christiansen <tchrist@perl.com>
use v5.14;
use strict;
use warnings;
use open qw(:std :utf8);
use re "/xi";
my $C = "bcdfghjklmnpqrstvwxyz";
my $V = "aeiou";  # no y
my $L = "abcdefghijklmnopqrstuvwxyz";
if (@ARGV == 0 && -t STDIN && -t STDERR) {
    print STDERR "$0: reading from tty, best type something...\n";
}
while (<>) {
    s/ \b easy \b               /ez/g;
    s/ \b easier \b             /ezr/g;
    s/ \b easily \b             /ezly/g;

    s/ [$L] [$C] \K e \b        //g;
    s/ (?<=[$C]) [$V]+ (?=[$C])  //g;
    s/ [$V] \K e \b             //g;

use re "/xi";
my $C = "bcdfghjklmnpqrstvwxyz";
my $V = "aeiou";  # no y
my $L = "abcdefghijklmnopqrstuvwxyz";

macbook# tcgrep '\b\p{upper}var\b' < book.pod
=cell Ævar Arnfjörð Bjarmason
X<Bjarmason, Ævar Arnfjörð>
=cell Ævar Arnfjörð Bjarmason
C<o>’s.  And while you would find two C<o>’s in the decomposition of “C<Ævar
Arnfjörð Bjarmason>”,X<Bjarmason, Ævar Arnfjörð> you wouldn’t find any C<e>’s or C<d>’s, because S<LATIN