$_ = $url;
($filename) = /([^\/]*)$/;
print "filename is $filename\n";