Select Code to Download

Select or download this
```
use warnings;
use strict;
```
Select or download this
```
     12     my $seq =();
```

     23       $o{$header} = "$seq";

...
     28     $header = "$line";

     33     $seq .= "$line";

Select or download this

     35 #Q: How many times is the $search found inside all the hash va
+lues??

...
     51     ###################
     52     # FOREACH LOOP END#
     53     ###################

Select or download this

my $hits;
$hits += () = /$search/gi for values %o;
my $contains = $hits;

Select or download this

     68     if ($count) {
     69       my $ofound = ($hits)/($count);
     70     } elsif ($count ==0) {
     71     }

Select or download this

     my $ofound;
     if ($count) {
       $ofound = ($hits)/($count);
     } elsif ($count ==0) {
     }

Select or download this

     if ($count) {
       return $hits / $count;
     } elsif ($count ==0) {
     }