Select Code to Download

sub quoted_string
...
my @matches = $data =~ / ((??{ quoted_string( qq(") ) })) /xg;

print join("\n\n",@matches);

<script>
function Some_Function (arg1, arg2) {  }
...
while (1) {  }

</script>