#!/usr/local/bin/perl -w

use strict;

print "Tizzext tizzo snizzoopify: ";
my $tizzext = <>;

my @arrizzay = split / /, $tizzext;
foreach (@arrizzay) { snizzoopify($_); }

print join " ", @arrizzay;

sub snizzoopify {
        if (($_ eq 'the') || ($_ eq 'are') || ($_ eq 'be')) {
                return $_;
        };
        $_ =~ s/(\w)([aio])(.*)/$1izz$2$3/;
        $_ =~ s/ing/in'/g;
        return $_;
}