($dirfilename = $url) =~ s|\Qhttp://foo.bar.com/\E||;