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