my $path = $ENV{HTTP_PATH_INFO};
my $regex_img = qr#<img(\b[^>]*)?src="(?<!https:\/\/|http:\/\/|ftp:\/\/)([^"]*)"(\b?[^>]*)?>#;
$body =~ s#$regex_img#<img$1src="$path/$2"$3>#igm;