@matches = $spooler =~ /(\d+)ms/g;
    foreach $a (@matches){
        print  $a .",";
    }
    print "\n";