#!/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 $_; }
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |