use strict;
while(1) {
    print "please enter a guess from 1 to 100: ";
    chomp(my $guess = <STDIN>);
    if ($guess =~ /quit|exit|^s*$/i)
    {
        print " sorry you gave up.the number was $secret.\n"; last;
    }
    elsif ($guess < $secret) {
        no strict;
        print "you failed \n";
    }
}
[download]

- but why?

Just leave it enabled. In normal coding you always want to have it; in fact, there are only few situations where some strictness must be disabled, such as hacking perl internals. As the strict documentation states, it is a "pragma to restrict unsafe constructs" - and it is always better to be on the safe side.

BTW, had you indented your code properly, you would have seen that you missed the last right curly... ;)

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Oh i missed that -- now its working thanx alot mate, and `bout the last curly guess i missed it when i typed the script in here and added <#BR#> for the html script :-)

use strict;
use warnings;

my $secret=42;
my $guess;
while(1) {
  print "please enter a guess from 1 to 100: ";
  chomp($guess = <STDIN>);
  if ($guess =~ /quit|exit|^s*$/i){
    print " sorry you gave up.the number was $secret.\n"; last;
  }
  if ($guess != $secret) {
    print "Wrong! Guess again.\n";
  }else{
    print "Correct!\n";
    last;
  }
}
[download]

now i have the code completed -- but when a user guess the right number it keeps asking for the same guess again and again , my question is : how can i restart the program automaticaly with a new secret number but without quiting . here is the code

#!/usr/bin/perl -w 

use warnings;
use strict;

my $secret = int(1 + rand 100);

while(1) {
print "please enter a guess from 1 to 100: ";
chomp(my $guess = <STDIN>);
if ($guess =~ /quit|exit|^s*$/i)
{
print " sorry you gave up.the number was $secret.\n"; last;
}

elsif ($guess < $secret) { no strict;
print "you failed ,try higher\n"; 
}

elsif ($guess > $secret) {

  print "you failed , try lower\n";
}

elsif ($guess == $secret) {
print "you got it\n";

}

}
[download]

Sorry again for the mistakes i made concerning where should i add my question , im new here and new for PERL in general. cheers,

There are many ways to achieve that. An easy way is to repeat the code that generates of the number in the success block. Here's a slightly different way to do it using a "special" value (undef) and using an if as a statement modifier:

#!/usr/bin/perl -w

use warnings;
use strict;

my $secret;

while (1) {
    $secret = int(1 + rand 100) if ! defined $secret;
     
    print "please enter a guess from 1 to 100: ";
    chomp (my $guess = <STDIN>);
    
    if ($guess =~ /quit|exit|^s*$/i) {
        print "Sorry you gave up. The number was $secret.\n";
        last;
    }
    
    if ($guess < $secret) {
        print "You failed, try higher.\n";
    
    } elsif ($guess > $secret) {
        print "You failed, try lower.\n";
      
    } elsif ($guess == $secret) {
        print "You got it!\n";
        $secret = undef;
    }
}
[download]

---

DWIM is Perl's answer to Gödel