如何在s///中使用'#'符号啊?谢谢

如何在s///中使用'#'符号啊?谢谢

文本里含有'#'符号,如何表示啊,谢谢!比如
if(s/^#{"(.+?)"}/#{"$changename"}/)

想匹配以#开头的一个字符串,并把{""}里的字符串换掉,谢谢!
if(s/^'#'{"(.+?)"}/'#'{"$changename"}/)
这样也不行啊
'#'前加'\'也不行啊
怎么在s///里表达'#'这个字符呢,谢谢
perl -l -e '$s="# foo"; $s=~s/^#(.+)/# bar/; print $s'
ok,多谢,我用的PSPad作编辑器,'#'字符敲上代码貌似就变成注释了,其实还是可以work的,呵呵!