use strict;
use warnings;
use Data::Dumper;
my @images;
my $content = '<a href="http://www.imagebeaver.com/view.php?mode=gallery&g=115564&photo=1" target="_blank"><img src="http://www.imagebeaver.com/files/images/thumb/37021412066526319.jpg" border="0"></a> <a href="http://www.imagebeaver.com/view.php?mode=gallery&g=115564&photo=2" target="_blank"><img src="http://www.imagebeaver.com/files/images/thumb/99821412066526320.jpg" border="0"></a> <a href="http://www.imagebeaver.com/view.php?mode=gallery&g=115564&photo=3" target="_blank"><img src="http://www.imagebeaver.com/files/images/thumb/62341412066526321.jpg" border="0"></a> <a href="http://www.imagebeaver.com/view.php?mode=gallery&g=115564&photo=4" target="_blank"><img src="http://www.imagebeaver.com/files/images/thumb/33641412066526322.jpg" border="0"></a> <a href="http://www.imagebeaver.com/view.php?mode=gallery&g=115564&photo=5" target="_blank"><img src="http://www.imagebeaver.com/files/images/thumb/5361412066526323.jpg" border="0"></a> <a ';

push(@images, "http://www.imagebeaver.com/files/images/$1:$1") while $content =~ m#/files/images/thumb/([a-zA-Z0-9]+\.jpg)#g;
print Dumper \@images;