Select Code to Download

sub count {
        # pass it the long sentence and the match word/char!
...
    }
    return $count;
}

foreach ( @check ) {            
        print "[$_]: " . count($string,$_);
       }