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