Allow user to input data until user press a certain key

[newBee]

Sorry my previous entry I didn't have much information,

What i want to do is, allow the user to input word until the user
enter a certain key to end the standard input. I am not sure how to do
this in perl...  may be i am not using regex correctly... or may be i
am not handling the control structure in a right manner...

this is what i have so far...

print "Please enter words: \n";
$userInput = <STDIN>;
while(chomp($userInput) ne /q/i) {
        @lineArray = split '\W+', $userInput;
        foreach $word(@lineArray){
                if($DEBUG){print "<$word>\n";}
        }
}

Thanks in advance...


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/