Select Code to Download

$answer = lc($answer);
if ($answer eq ('y' or 'yes')) {
    unlink $origin;
}

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