Select Code to Download

while ($current_article =~ m/\[\[(.+?)\]\]/g) {
    my $tag_name = $1;
...
    }
    print "\n\n";
}

Got 345fsdf sf 
Checking if we have any contents AFTER it... 
...