perl - 使用匹配正则表达式的密钥过滤哈希而不使用smartmatch

I need to filter a hash based on a regex, deleting the keys from the hash if the regex matches.I need to filter a hash based on a regex, delet