$count++ while $text =~ /$gene/g; # Count number of instances

##</code><code>##

$count = () = $text =~ /$gene/g;

##</code><code>##

my $p=0; 
++$count while $p = 1+index( $text, $gene, $p );