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]

Reply via email to