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