sub incr {
  my $str = shift;
  ++$str;
  $str =~ y/AEIOU/BFJPV/;
  return $str;
}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.