Counting occurences of a char in a line

[Tor Hildrum]

Hi,

I have the following code in a script I'm writing:

foreach my $line (<INN>) {
    if ( 10 == ($line =~ s/,/,/g) ) {
        print OUT $line;
    }
}

Is this poor style? It looks a bit ugly, but I can't figure out a
better way to do it. I'm sure there is :)
The script will be reused and probably maintained by someone else. Is
there a more "standard" way of doing this?

regards

Tor

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>