"<div></div>" =~ /(?<start>.*?)((?!\< *\/[\w\d\-]+\>).)*/;
print $+{start}; # it should print <div>