John W. Krahn wrote:
Rob Dixon wrote:my @d = <FH>; my @list = @d; s/\s+/_/g foreach @list;You forgot the grep: my @d = grep /\d/, <FH>; my @list = @d; s/\s+/_/g foreach @list;
Yes. Late at night I'm afraid. 2:00am in fact! Thanks for the fix John Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
