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