Select Code to Download

#!/usr/bin/perl
use warnings;
...
    $alt->parentNode->removeChild($alt);
}
print $dom;

open file.xml ;
rm //image/alt[not(text())] ;
save :b ;