Lines Matching refs:ans
113 my $ans;121 $ans = <STDIN>;122 chomp $ans;123 if ($ans =~ /^\s*$/) {125 $ans = "c";127 $ans = "n";130 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);132 last if ($ans =~ /^c$/i);138 if ($ans =~ /^c/i) {141 if ($ans !~ /^y$/i) {