#!/usr/bin/perl -w
use strict;
use Text::Undiacritic qw(undiacritic);
use Text::CSV;

my ( $tri, $chem, $year, $lbs, $gms,   
    $rls, $csv, $err, @cols );

# open the release report file for input
#$rls = "rls.tst";
$rls = "../ecodata/releases.txt";
open( RLS, $rls )       || die "bad open $rls";


# RLS: TRI, Release#, ChemName, RegNum, Year, Pounds, Grams
while( <RLS> )
{
        $_ = undiacritic($_);
        s/\(\d{4} and after \"acid aerosols\" only\)//g;
        $csv = Text::CSV->new();
        next if ($. == 1);
        if ($csv->parse($_)) {
                @cols = $csv->fields();
                $tri    = $cols[0];
                $chem   = $cols[2];
                $year   = $cols[4];
                $lbs    = $cols[5];
                $gms    = $cols[6];
        }
        else {
                $err = $csv->error_input;
                print "Failed to parse line: $err";
        }
}
close(RLS);

##</code><code>##

Failed to parse line: 00617BRSTLSTATE,"1394080382029","Sulfuric acid (1994 and after "acid aerosols" only)",7664-93-9,1994,500.0,""
Failed to parse line: 00617BRSTLSTATE,"1394080382031","Hydrochloric acid (1995 and after "acid aerosols" only)",7647-01-0,1994,2842.0,""