# untested
$url=~ /^(\w+):\/*(.*?\@[^\/]+)\/(.*)$/;