#perl -p
s/([ '"$*?()\[\]])/\\$1/g;

##</code><code>##

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