Help for this page

Select Code to Download


  1. or download this
    
    sub quoted_string
    ...
    my @matches = $data =~ / ((??{ quoted_string( qq(") ) })) /xg;
    
    print join("\n\n",@matches);
    
  2. or download this
    <script>
    function Some_Function (arg1, arg2) {  }
    ...
    while (1) {  }
    
    </script>