#!/usr/local/bin/perl
use strict;
use Text::CSV_XS;

my ($mday, $mon, $year) = (localtime(time))[3..5];
my $cdate = sprintf "%02d" x 3, $mon+1, $mday, $year%100;

my $infile = "inmail.csv"; 
my $outfile = "outmail${cdate}.csv"; 

if ( open( INFILE, "<:utf8", $infile ) ) {

	open (OUTFILE, ">:utf8", $outfile);
	
	my $csv = Text::CSV_XS->new();
	
	while (defined(my $line = <INFILE>)) {
	    next if $. == 1; 
	    chomp $line;
	    if (my $status = $csv->parse($line)) {
	        my @columns = $csv->fields;
	        
	        @columns = quotecolumn(@columns);
	        
	        for (9) {
	            $columns[$_] =~ s/^.*SMTP://;
	            $columns[$_] =~ s/\%.*$//;
		    $columns[$_] =~ s/\".*$//; 
	        }
	        print OUTFILE join(",", @columns[1,2,3,4,5,9,11,12,13,15,16,17,18,19,20,21,22,23,24]), "\n";
	    } 
	}
	close (INFILE);
	close (OUTFILE);

   
}

sub quotecolumn {
    my @columns = @_;
    for (@columns) {
        if (/,/) {
            unless (/^"[^"]*"$/) {
                $_ = qq("$_");
            }
        }
    }
    return @columns;
}