You can also use the ternary operator for simple evaluations such as these:

sub decide() {
    $answer =~ m/^y/i ? yes() : not();
}
[download]

Originally posted as a Categorized Answer.