Select Code to Download

if (@groups = /$test_regexp/g) {
    while (@groups) {
...
        # ...
    }
}

while (/$test_regexp/g) {
    ($url, $file) = ($1, $2);
    # ...
}