print "do you want to remove <alt> tags Y/N \n";
chomp(my $ok = <>),
my $yes = 'y';
my $no = 'n';
$inp = lc($ok);
if ($inp eq $yes){
    print "removed <alt>";
}
elsif ($inp eq $no)
{
    print "not removed <alt>";
}