$_ = "ab_";
print "\\b matches\n" if m!ab_\b!;
$_ = "ab*";
print "\\b matches\n" if m!ab\*\b!;