That code did not produce that output. You seem to have omitted a print "$1,$2,$3\n";.

But ignoring that, I think that your problem might be that you're forgetting that \w will also match anything that matches \d.