正则表达式问题请教

ts99

我要替换掉变量中的以#开头的行，变量中内容如：
# Initializing...
# Contacting target "test"...
#
# Target:  test:/
#

# Base-VXFS             B.11.31        Base VxFS File System 4.1 Bundle for HP-UX
  Base-VXFS.JFS         B.11.31        Base VxFS File System 4.1 for HP-UX
我想只要 Base-VXFS.JFS         B.11.31        Base VxFS File System 4.1 for HP-UX这一行的输出，测试程序如下：


#/usr/bin/perl
use warnings;
$test =`swlist Base-VXFS`;
#print "$test \n";

$test =~s/^#.*$//m;
print "$&\n";
#print $test;
为什么仅匹配一行啊？没有实现多行匹配？

ts99

结贴，不用看了，加个修饰符g就好了