Select Code to Download

while (1) {
                        if ( $v =~m{\G(.*?)([\\",])}gc ) {
...
                                $v[-1].= substr($v,pos($v)||0 );
                                last;
                        }