#!/usr/bin/env perl

use strict;

while (<>) {
    s/(<img.*src.*data:image\/[^;]*;base64,[a-zA-Z0-9+\/=]*)/<img src="LOCAL_IMAGE_REMOVED/g;
    s/(<img.*src.*http.*>)/<img src="REMOTE_IMAGE_REMOVED" \/>/g;
    print;
}

exit
# <img src="data:image/jpeg;base64,/9j/4QnuRXhpZgAATU
