As with most code, this can be improved further, yet still keep your own style. You are testing to see if $answer is 'y', and then testing to see if it is 'a'. It can't be both! No point in testing for 'a' or 'v' if it is 'y'. And what if the user mis-types, for example 'Q' (users never do what you want them to)?
Also, you are not reporting if the unlink fails. autodie is an easy way of doing that without hacking your code too much:
use strict;
use warnings;
use autodie;

my $origin = 'somefile';  # inserted for testing
my $removeall = 0;        # inserted for testing

if ($removeall == 1) {
    unlink $origin;
} 
elsif ($removeall == 0) {
    print "Remove '$origin'? ([Y]es, [N]o, [A]ll, ne[V]er; default: N)
+ ";
    chomp(my $answer = lc(<STDIN>));

    #print "answer: |$answer|\n" if (DEBUG);

    if (($answer eq 'y') or ($answer eq 'yes')) {
        unlink $origin;
    }
    elsif (($answer eq 'a') or ($answer eq 'all')) {
        unlink $origin;
        $removeall = 1;
    }
    elsif ($answer eq ('v' or 'never')) {
        $removeall = -1;
    }
    elsif ($answer ne '' and $answer ne 'n') {
        print "Invalid response: '$answer' (taken as N)\n";
    }
}

[download]

In reply to Re^3: unexpected STDIN by cdarke
in thread unexpected STDIN by GhodMode

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.