I like that but I like this even more. There's a general uncertainty about what constitutes the filename in an url so there isn't any 100% way to write this. This is a case where you just have to know your data. Anyhow... to borrow from Kage I'm just grabbing those elements that look filename-ish.
$bar = "http://www.merchandisemarket.net/shop/s_images/aaa_small.gif";
@foo = grep /\w\.\w{3,4}$/, split m|/|, $bar;
__SIG__ printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::svref_2object(sub{})->OUTSIDE |