#!/usr/bin/perl
#
#
use strict;

my $i=0;
while(<>) {
    if (/\"|\',/) {

    }
}