my ($filename) = 
"http://www.merchandisemarket.net/shop/s_images/aaa_small.gif" =~ 
m{http://www.merchandisemarket.net/shop/s_images/(aaa_small.gif)};