>>701
http://www.din.or.jp/~ohzaki/regex.htm#Without

print "$_ => ", /^(?:(?!\.html\z).)*\z/ ? 'match' : 'unmatch', "\n" for qw(
foo.txt
bar.html
baz.html.txt
);