my $regex_img = qr{]+)?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 '';
} else {
$img_url =~ s/^\///;
return '';
}
}