Select Code to Download

my @matches;
....
...
    my $repetition = @matches;
    print "$string was encountered $repetition times.\n" if($repetitio
+n > 0); 
}

use strict;
use warnings;
...
my @matches = $text =~ m/$string/g;
my $count = @matches;
print $count;