perl -wle '$a = "[la-le-lu]"; $a =~ tr/[aeu]//d; print $a;' l-l-l