if   ( ""    =~ /^\Q$answer/i ) { default()     }
elsif( "YES" =~ /^\Q$answer/i ) { affirmative() }
elsif( "NO"  =~ /^\Q$answer/i ) { negative()    }