if ( $file_name !~ /\....?\z/ ) {
    $file_name .= '.csv';
}