if ( $proposal->response =~ /yes/i ) {
   print "All right! Let's get hitched!\n";
}