my %count;
while(/\b(director|resignation)\b/ig) {
    $count{$1}++;
}
my @found = sort keys %count;
print "Found the words: @found\n";
[download]