srand( time() ^ ($$ + ($$ << 15)) );
my @v = ( 'a', 'e', 'i', 'o', 'u', 'y'); 
           #, 'ai', 'ou', 'oo', 'ee', 'oi');
my @c = ( 'b', 'c', 'd', 'f', 'g', 'h', 'j', 
          'k', 'l', 'm', 'n', 'p', 'q', 'r',
          's', 't', 'v', 'w', 'x', 'z');
$nc = @c; # Number of consonants excluding blends.
          #  (Some of the blends are not good endings.)
@c =    (@c, 'bl', 'br', 'tr', 'st', 'dr', 
             'th', 'ch', 'sh');
my @d = (0..9, '_', '-', '.');

my $length = 10; # This is a minimum.  
my ($flip, $str) = (0,'');
for ( 1 .. ($length - 1) ) {
  $flip++;
  if ($flip%2) {
    if ($flip==$length-1) {
      $str .= $c[rand($nc)];
    } else {
      $str .= $c[rand(@c)];
    }
  } else {
    $str .= $v[rand(@v)];
  }
}
my $re;
my $digitpos = rand(5)+3;  foreach (1..$digitpos) {
  $re .= ".";
}
$str =~ s/($re)/$1 . $d[rand(@d)]/e;
$str = ucfirst $str;
print "$str\n";