/^(?:([^:\/?#]+):)?(?:\/\/((?:(([^:@])(?::([^:@]))?)?@)?([^:\/?#])(?::(\d))?))?((((?:[^?#\/]\/))([^?#]))(?:\?([^#]))?(?:#(.*))?)/, [your code here]

Fri Apr 6 17:57:01 UTC 2018

On Friday, 6 April 2018 at 14:03:18 UTC, Abdulhaq wrote:
> On Friday, 6 April 2018 at 13:10:07 UTC, jason wrote:
>> what is this?
>
> It's a perl program that converts D code into APL

I didn't know perl syntax got such improvment for readability.

/^(?:([^:\/?#]+):)?(?:\/\/((?:(([^:@]*)(?::([^:@]*))?)?@)?([^:\/?#]*)(?::(\d*))?))?((((?:[^?#\/]*\/)*)([^?#]*))(?:\?([^#]*))?(?:#(.*))?)/, [your code here]

/^(?:([^:\/?#]+):)?(?:\/\/((?:(([^:@])(?::([^:@]))?)?@)?([^:\/?#])(?::(\d))?))?((((?:[^?#\/]\/))([^?#]))(?:\?([^#]))?(?:#(.*))?)/, [your code here]