Help for this page

Select Code to Download

Select or download this

while my $text=<$testo>){
    ...
    $count += () = /\b$key\b/ig while <>;
}