use URI::URL;
my $url = URI::URL->new('http://www.merchandisemarket.net/shop/s_images/aaa_small.gif ')
my ($filename) = ($url->path_segments)[-1];