#!/usr/bin/perl


use LWP::Simple;

$url = "http://a-gaming.ru";
$data = get($url);
@images_links = ();

# 1) '/img/bt_forum_a.jpg'
# 2) <img src="/img/bt_demos.jpg"
while ($data =~ m/(\'|\")\/img(.*?\.(gif|png|jpg))(\'|\")/ig){
  print $url . $2 . "\n";
  push(@images_links,$url . $2);
}


foreach $image (@images_links){
  .......
}