if ($filename =~ /\.txt/)