求一个正则表达式
取得所有#开头的本行字符,除了以#region开头的

如:
# aa
#bb
dsfaasdf#dd
dsafds #ee
dafd #region dfdas
中,匹配到的字体串有:
# aa
#bb
#ee


[解决办法]
@arr = ('# aa', '#bb', 'asdf#cc', 'sdfefse#region sdfsdf');

foreach (@arr) {
if (/(#[^(region)]+)/) {
print $1;
}
}

[解决办法]
不好意思，格式也加进去了~~，重新贴一遍：

my $file = "text.txt";
my $HFILE;
open HFILE, "<$file";
while (<HFILE>) {
if (/^#[^(region)]+/) {
print;
}
}