use warnings;
use strict;
use Data::Dumper;

"<div></div>" =~ /(?<start>.*?)((?!\< *\/[\w\d\-]+\>).)*/;
print Dumper(\%+);

__END__

$VAR1 = {
          'start' => ''
        };