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