perl -wle"$_ = 'aaa'; $_ !~ tr[a][]d; print"