my $var = <STDIN>;
while ($var = <STDIN>)

##</code><code>##

use strict;

my $target = 12;
print "Guess my number.\n";

while ((print "Enter your guess: "), my $guess = <STDIN>)
  {
  (print "You guessed it!"), last if $guess == $target;
  (print "You guessed too low\n"), next if $guess < $target;
  (print "You guessed too high\n"), next if $guess > $target;
  }