#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;
use autodie;

local $\ = chr 30;

open my $csv_fh, '<', 'pm_1080161_input.csv';
open my $tff_fh, '>', 'pm_1080161_output.tff';

while (<$csv_fh>) {
    chomp;
    s/(?:"(?<a>[^"]*)"|(?<a>[^,]*)),?/$+{a}\037/g;
    s/[\037]+$//;
    print $tff_fh $_; 
}