Select Code to Download

use strict;
use WWW::Mechanize;
...
}x
    print $1;
}

use strict;
use WWW::Mechanize;
...
    m{<strong.*?(http://.*?)&};
    print $1;
}