Thizzis shizzould nizzeed nizzo explizzanation.
No really... it has no purpose, and could probably use a bit of work, but it sure did make me chuckle for a little while at the end of a long day of work.
#!/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 $_;
}