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

##</code><code>##

print join(',',$spooler=~/(\d+)ms/g)."\n";