s[http://foo.bar.com/][] for (my $dirfilename = $url);