Help for this page
if (@events = grep /\b$event\b/, @{ $region_of_state{$region_of_state} +}) {
if (@events = grep /\b\Q$event\E\b/, @{ $region_of_state{$region_of_st +ate}}) {