Select Code to Download

use strict;
use warnings;
...
my $str = $ARGV[0];

print "$str - " . consinc($str) . "\n";

$str++ if exists $vowels{substr($str, -1 , 1)};