Select Code to Download

my $test_string = q|
     [lien "dfgdgdg"][img]sdfsdfsdf[/img][/url]
...
    while ($test_string =~ m%\[url=([\?\%\:\/a-zA-Z0-9_\-\.=]+)\]\[img
+\]([\?\%\:\/a-zA-Z0-9_\-\.=]+)\[/img\]%gix) {
        print "FOO: $1 , and $2 \n";
    }

        FOO: dfgdgdg , and sdfsdfsdf
FOO: dfgdgdg33 , and sdfsdfsdf
FOO: http://www.smileycentral.com/?partner=ZSzeb001 , and http://smile
+ys.smileycentral.com/cat/12/12_1_220.gif

    while ($test_string =~ m%\[lien \"([\?\%\:\/a-zA-Z0-9_\-\.=]+)\"\]
+\[img\]([\?\%\:\/a-zA-Z0-9_\-\.=]+)\[/img\]\[/lien\]%gix) {
        print "FOO: $1 , and $2 \n";
    }