count by an element in perl -

i have file like:

fan      apple banana orange mango cooler   apple orange banana mango cooler   apple orange banana mango cooler   apple orange banana mango fan      apple banana orange mango fan      apple banana orange mango cooler   apple orange banana mango fan      apple banana orange mango 

now when going line line want count @ moment when fan comes , need increase count every fan. like

count 1 fan      apple banana orange mango cooler   apple orange banana mango cooler   apple orange banana mango cooler   apple orange banana mango count 2 fan      apple banana orange mango count 3 fan      apple banana orange mango cooler   apple orange banana mango count 4 fan      apple banana orange mango 

this want in output. appreciated...thank you

#!/usr/bin/perl use strict; use warnings;  $n = 0; while (<>) {     print "count ", ++$n, "\n" if /^fan\b/;     print; } 

or one-liner using perl 5.10+:

perl -pe 'say "count ", ++$n if /^fan\b/'