while ($string != m/[a-zA-Z]{1,5}/ ) { print("that is wrong....try again: "); chomp ($string = <STDIN>); }
Maybe: while ($string !~ m/.../) { ... } When you're matching against regular expressions, you need to use =~ or !~. Hope this helps. -- Igor Sutton Lopes t: +55 51 9627.0779 e: [EMAIL PROTECTED]