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