Help for this page
$_ = 'http://www.foo.com/'; s/^http:\/\/(.*)\/(.*)/http:\/\/123.1.34.107:8080\/Web/; ... $_ = 'http://www.foo.com/'; s[^http://(.*)(.*)][http://123.1.34.107:8080]; print("$_\n");
http://123.1.34.107:8080/Web http://123.1.34.107:8080