if ($data =~ /(.*?)<\/tag>/s) { print "I found =>$1<=\n"; }