Help for this page

Select Code to Download

Select or download this
```
#perl -p
s/([ '"$*?()\[\]])/\\$1/g;
```

Select or download this

#perl -l -O777
$_=<>;while(m/(\w+:\/\/[-a-zA-Z0-9\$_.+!*'(),?\/\%\&=~:]+)/g){print$1;
+}