相关疑难解决方法(0)

给定一个字符串，我想要

• A将foI的第 8 位开始的所有字符设置为（ 0x41~0x49到0xC1~ 0xC9）。
• 将所有第 8 位打开的字符重置为关闭。

喜欢，

$s='@ABCDEFGHIJKLMNOPQRS';
$s1= join "", map { $_ |= 0x80 if /A-I/ } split //, $s;
$s2= join "", map { $_ &= ~0x80 } split //, $s1;

我认为我的上面的代码很接近，但它没有完全工作。
请帮忙。