Select Code to Download

my ($cells) = $content =~ /<!-- start content include -->\s+(.+?)\s+<!
+-- end content include -->/s;
        
while ($cells =~ /<tr>.+?<span class="title">\s+<a href="(.+?)">(.+?)<
+\/a>\s+<\/span>.+?<\/tr>/sg)