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

##</code><code>##

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