http://qs1969.pair.com?node_id=611938

elsiddik has asked for the wisdom of the Perl Monks concerning the following question:

hallo there,
i need to enable strict and disable it in the same code like this.


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; } no strict; elsif ($guess < $secret) { print "you failed \n"; }
can i use it this way?

Edit: g0n - code tags