perl 正则替换

兰花仙子

要保护$a的话，多一个赋值又如何？实在想简单点：

C:\Perl\bin>perl.exe -le "$a='abcd';($b=$a)=~s/a/1/;print $b"
1bcd