Select Code to Download

srand( time() ^ ($$ + ($$ << 15)) );
my @v = ( 'a', 'e', 'i', 'o', 'u', 'y'); 
...
$str =~ s/($re)/$1 . $d[rand(@d)]/e;
$str = ucfirst $str;
print "$str\n";