my (%hash) = ($text =~ /(<a name.*?)(<!--start-->.*?<!--end-->)/gs);