@urls = $string =~ m!(?:\w+:/*)?(?:[\w\-]+\.)+\w+!g;