perl *
print/\D$/gfor%!