$contents = "

no tabs here

column 1[tab]column 2

no tabs here

"; if ($contents =~ /

(.*?\[tab\].*?)<\/p>/) { print "yes: ${1}\n"; } else { print "no\n"; } if ($contents =~ /

(?=\[tab\])<\/p/) { print "yes: ${1}\n"; } else { print "no\n"; }