Select Code to Download

use strict;
use warnings;
...
1=bbb
2=cccc
3=<?query?>

while ($data_in =~ m{<container><a>(.+?)</a><b>(.+?)</b></container>(<
+\?query\?>)?}ig)  {