Re^3: How do i extract 3 variables from each line in a file, and print them to a new file

instead of

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

how about

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

Comment on Re^3: How do i extract 3 variables from each line in a file, and print them to a new file Select or Download Code