And ... if you change this line:
next unless $word =~ /\w/;
To -
next unless $word =~ /^\w{5}$/;
It will only find 5 letter words...
Truly sorry now - I'll go back into hibernation. -Bill- __Sx__________________________________________ http://youve-reached-the.endoftheinternet.org/
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>