I prefer this to whiles:

<code> map{$r=[split (regex here)];$c+=(lc($r->[9]) eq "mapi")}<FH>; <code>

I haven't tested this works but I hope you get my drift.

Brother Frankus.