sub weirdex {
    local $_ = shift;
    my ($weirdex, $vowel) = ('', 0);
    s/[^a-zA-Z]//g;
    for (split '') {
        if (/[aeiou]/i) {
            $vowel++ or $weirdex .= $_;
        } else {
            $weirdex .= $_ if substr($weirdex, -1, 1) ne $_;
        }
    }
    return $weirdex;
}