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

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

   if($img_url =~ m/^(https?|ftp):\/\//) {
      return '<img'.$a.'src="'.$img_url.'"' . $b . '>';
   } else {
      return '<img'.$a.'src="'.$path.'/'.$img_url.'"' . $b . '>';
   }
}