foreach ($lines) {
    $lines = ~ s/(?<=,)([^,]*),/\1/g;
    print("$lines \n");
}