while($line =~ m{
        (?:^|,)
        (?:
                "
                ((?:[^"]|"")*)
                "
        |
                ([^",]*)\
        )
        }gx)
{
        if(defined $2) {
                $filed = $2;
        } else {
                $filed = $1;
                $filed =~ s/""/"/g;
        }
        print "[$filed]"; # 디버깅을 위해 필드를 출력한다.
}