Allow user to input data until user press a certain key

[newBee]

Can someone tell me how to allow user to keep enter data until the
user hit certain key such as /q/i  i was thinking something like this
print "enter data\n";
$userInput = <STDIN>;
while(chomp($userInput) ne /q/i ) {
        #bla bla bla
}

Thanks in advance...


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