/(?{local %_; @_{qw {a e i o u}} = ();})
 (?:(.)(?{delete $_{$1}}))*
 (?(?{keys %_})(?!)|)/x;