I think you are looking for perlstyle. The above, formatted in the usual Perl style would look like this:

sub decide{
    if ($answer =~ /^[Yy]/ ) {
        yes();
    }
    else {
        not();
    }
}
[download]

Originally posted as a Categorized Answer.