#!/usr/bin/perl -w
use strict;
my @arr = <DATA>;
my $contact_me_count = 0;
for my $lcv (0 .. $#arr){
    if($arr[$lcv] =~ /^CONTACT_ME:/){
        my $contact_me = substr("$arr[$lcv]", 25);
        chomp $contact_me;
        if($contact_me eq 'YES'){
            $contact_me_count ++;
        }
    }
}
print $contact_me_count;
__DATA__
CONTACT_ME:              YES
CONTACT_ME:              NO