Select Code to Download

use strict; 
use warnings;

...
     print "Number of patterns found for $patterns[$i] is $count[$i] \
+n"; 
}
close $FILEHANDLE;

         $count[$i]++ if /$patterns[$i]/;

         $count[$i]++ and last if $_ ~~ $patterns[$i];

         $count[$i]++ and last if /$patterns[$i]/;