if( $answer =~ /^[Yy]/)
.
.
.
.