next if ($file_name !~ /\.txt$/);