perl-regex-case-switch