sub weirdex {
  local $_ = shift;

  tr/a-zA-Z//dc;
  tr/a-zA-Z//s;
  m/[aeiou]/g and substr($_, pos) =~ s/[aieuo]//g;

  $_;
}

print "$_ - ", weirdex($_), $/
  for "giulienk", "larry wall", "etheroskedasticity";

__output__

giulienk - gilnk
larry wall - larywl
etheroskedasticity - ethrskdstcty
[download]

_________
broquaint