use strict;
use warnings;
use Data::Dumper;

while (<DATA>) {
    my @fields = /(\d+)\s+(\d+)\s+(\d+)\s+(.*?)\s+(\d+)\s+(\d+\.\d+\.\d+\.\d+\:\d+)\s+(\d+)\s+(\d+)$/;
    local $" = '","';
    print qq{"@fields"\n};
}

__DATA__
6     2   78 testing stuff         0 69.68.119.54:28960    34756 25000
 7     4  118 [:EsU:]|BLaZE|        0 24.86.4.164:28960      7248  5000
6     2   78 tessssssstinggggggggggg REAAAAA     40 69.68.119.54:28960    34756 25000

##</code><code>##

"6","2","78","testing stuff","0","69.68.119.54:28960","34756","25000"
"7","4","118","[:EsU:]|BLaZE|","0","24.86.4.164:28960","7248","5000"
"6","2","78","tessssssstinggggggggggg REAAAAA","40","69.68.119.54:28960","34756","25000"