if($current_subject =~ /\b\Q$filter\E\b/)  # filter and get exact name