$answer = lc($answer);
if ($answer eq ('y' or 'yes')) {
    unlink $origin;
}
##</code><code>##

unlink $origin if $answer =~ m/^y(?:es)?$/i;