My first shot was too fast, here's a working solution:

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

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