Select Code to Download

$bar = "http://www.merchandisemarket.net/shop/s_images/aaa_small.gif";
@foo = grep /\w\.\w{3,4}$/, split m|/|, $bar;