my $regex_img = qr{<img([^>]+)?src="([^"]+)?"([^>]+)?>};
$body =~ s#$regex_img#img_parse($1, $2, $3)#igme;

my $regex_excl = qr{^(https?|ftp):\/\/};

sub img_parse {
   my $a = shift;
   my $img_url = shift;
   my $b = shift;

   if($img_url =~ m/$regex_excl/) {
      return '<img'.$a.'src="'.$img_url.'"' . $b . '>';
   } else {
      $img_url =~ s/^\///; 
      return '<img'.$a.'src="'.$path.'/'.$img_url.'"' . $b . '>';
   }
}