#!/usr/bin/perl

use strict;
use warnings;

use Text::CSV;
my $parser = Text::CSV->new();

sub trim($);
my $scomma = "@";
my $nline = "\n";

open (TEMP, $file) or die("Error: cannot open $file\n");
open (OUTPUT,">$outfile") or die("Error: cannot open $outfile\n");

while (my $line = <TEMP>) {
	if ($parser->parse($line)) {
	my @fields = $parser->fields();
	print OUTPUT trim($fields[0]).$scomma.trim($fields[1]).($fields[2]).$scomma.trim($fields[3]).$scomma.trim($fields[17]).$scomma.trim($fields[18]).$nline;
	}
}