my $url = 'ptoto://foo.combarz.erk/file.ext?query';
my ($proto, $domain, $filedirquery) =
$url =~
m|(\w{2,6})://([.a-zA-Z0-9-]+/)(.*?)$|;

print "($proto, $domain, $filedirquery)\n";