Select Code to Download

print "do you want to remove <alt> tags Y/N \n";
...
    print "not removed <alt>";
}

sub RemoveAltTag($)
...

    return $cnt;