Select Code to Download

#!perl -aln
$$_=y/aAeEiIoOuU//for@F;print"$$_ $_"for sort{$$b-$$a||$a cmp$b}@F

#!perl -an
print+map{/./;9-$&.$'}sort map{9- y/aAeEiIoOuU//." $_\n"}@F