Evaluated proc parse_links str {regexp -all -inline {https?://([-\w\.]+)+(:\d+)?(/([\w/_\-\.]*(\?\S+)?)?)?} $str}