perl -E'print/\D$/gfor%!'