Select Code to Download

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

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