addbib apply ar arch arithmetic asa awk banner base64 basename bc
cal cat chgrp ching chmod chown clear cmp col colrm comm cp cut
date dc deroff diff dirname du echo ed env expand expr factor false
file find fish fold fortune from glob grep hangman head hexdump id
install join kill ln lock look ls mail make man maze mimedecode
mkdir mkfifo moo morse od par paste patch pig ping pom ppt pr primes
printenv printf pwd rain random rev rm rmdir robots shar sleep sort
spell split strings sum tac tail tar tee test time touch tr true

#!/usr/bin/env perl
#
# unvowel - convert English to teenager txtspk
# Tom Christiansen

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";

#binmode(DATA, ":utf8");

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;