perl一个配匹??

if ($question =~ /please/) {
print ("Thank you for being polite!\n");
}
else {
print ("That was not very polite!\n");
#this is a print exmple!!
}

             如何配匹#this is a print exmple,并使变量$line等于后面的exmple!!  
  谢谢!

感觉不难，但不太明白你的需求

对，能再说详细些嘛？

从上面的代码中,找出#this is 那一行,并删除前面的只保留exmple!!给变量$line

open FH,"./tmp.log" or die "cant open file $!";
while(<FH>) {
        if ($_ =~ /^#this is (.*)/) {
                print "$1 \n";
        }
}
close FH;

运行结果：
a print exmple!!

真是不敢写上来，你是这个意思吗。。。