or download this
my $http='http://domain.com/';
my $sample='<img src="pics/local.jpg" alt="" />
<img src="http://remote.com/pics/remote.jpg" />
...
#-- OR ---------------------
$sample=~s/(img src=")(\w.+?)(:?)/"$1$http$2"if(!$3)/eg;
#-- END --------------------