Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Not equals operator
print "Please type the letter y\n";
while (<>) {
    chop;
    if ($_ ne 'y') {
        print "Please type the letter y\n";
    } else {
        print "Do you always do what you're told?\n";
        exit;
    }
}