use strict; use warnings; foreach my $dir () { chomp $dir; print "DIR: $dir\n"; if ( $dir =~ /\W+/ ) { print "\t$dir is not clean.\n"; } else { print "\t$dir is clean.\n"; }#close if }#close foreach __DATA__ test 1234 test_1234 test-1234 test 1234 test?1234 test+1234 test.1234