I'm going to strongly second aragorn's statement, and go further. You NEED to use the URI modules, in particular, URI::Split for the uri_split() function.

Here's the problem: What if your database is screwed up and gives you back "http://www.mysite.com" as the result? Well, with the aforementioned solutions, your imagename will be "www.mysite.com", when it should be undef. Better is something along the lines of:

use URI::Split qw(uri_split);
use File::Spec;

my $url= get_url_from_database();

my ($scheme, $auth, $path, $query, $frag) = uri_split($url);
die "No path in URI ($url) from database!" unless $path;

my ($volume, $directory, $filename) = File::Spec->split_path($path);
die "No filename in path ($path) from URI!" unless $filename;
[download]