if ($filename !~ m/^[a-z]{1,7}\.TXT$/i)