my $contents = "<p>no tabs here</p><p>column 1[tab]column 2</p><p>no tabs here</p>";

if ($contents =~ m{(<p>[^<>]*\[tab\][^<>]*</p>)} ){
	print "Matched '$1'\n;";
}