perl正则表达式实现大写字母转小写字母

这个功能不难，但是要求必须用s///的形式，而且后面不能加第三个参数，不能是s///g这样的形式。
不过可以采用多个这样的表达式。

例如 

s/A/a/
s/B/b/
s/AB/ab/
.........
.......

最终就是要求所有这些表达式组合起来，使得不论输入多少个大写字符，都会被转化为小写。




我在atftpd的pcre功能中需要我将大写的请求文件转化为小写，所以需要一个rules文件。

下面是pcre的rules的说明

The left hand side is the expression to match, the right hand side is the
substitution. This is equivalent to perls s/// statement

没学过perl,稍微看了一下perl的表达式说明，没想到方法......
这个功能能实现吗？

D:/>echo hello | perl -plne "s/.*//U$&/g"
HELLO

D:/>