open(FILE, "<ABC.csv");
@lines = <FILE>;
print @lines;
print $lines[1];
close(FILE);
foreach ($lines) {
    $lines = ~ s/(?<=,)([^,]*),/\1/g;
    print("$lines \n");
}