Select Code to Download

while ( $window =~ m/\w{3}\s{1,2}\d{1,2}([^\n]+)\n/oigc && $1 =~ /$re/
+) {
            &$callback($1);
        }