Brent,
I'd suggest using split instead of a regular expression. Here is a script
that worked for me.
open INPUT, "nitrogen.txt" or die "cant find file!";
while (<INPUT>)
{
chomp;
@data=split(/\s+/);
if ($data[2] < 0)
{
print "$data[0], $data[2]\n";
}
}
close INPUT;
[EMAIL PROTECTED] writes:
>
> beginners Digest 3 Jun 2001 17:44:55 -0000 Issue 92
>
> Topics (messages 2624 through 2653):
>
> Re: Counter problem
> 2624 by: Me
> 2634 by: Christian Campbell
>
> probably a simple matter but...
> 2625 by: Brent Buckalew
> 2632 by: M.W. Koskamp
> 2640 by: Jeff Pinyan
>
> Re: Licensing (warning: plug included)
> 2626 by: Adam Theo
> 2648 by: Randal L. Schwartz
>
> Re: installing perl
> 2627 by: Gerrit P. Haase
>
> Re: 'while' confusion
> 2628 by: Gerrit P. Haase
>
> Re: unknown CPAN variables
> 2629 by: Gerrit P. Haase
>
> Re: doubt about do/until
> 2630 by: Gerrit P. Haase
>
> Re: perl2exe
> 2631 by: Gerrit P. Haase
> 2649 by: Randal L. Schwartz
> 2652 by: Randal L. Schwartz
> 2653 by: Jody Lowes
>
> perl to build html
> 2633 by: KeN ClarK
> 2638 by: srl
>
> Overloading
> 2635 by: Richard Hulse
> 2641 by: Jeff Pinyan
>
> a trivial problem...
> 2636 by: Brent Alan Buckalew
> 2644 by: Greg Meckes
> 2651 by: Walt Mankowski
>
> [OT] on the right track
> 2637 by: Paul
>
> Re: audible beep
> 2639 by: Paul
>
> $str++ $str--
> 2642 by: Abdulaziz Ghuloum
> 2643 by: Abdulaziz Ghuloum
>
> don't understand word boundary
> 2645 by: patroclus_1.yahoo.com
> 2646 by: Eduard Grinvald
> 2647 by: Peter Scott
> 2650 by: Randal L. Schwartz
>
> Administrivia:
>
> To subscribe to the digest, e-mail:
> <[EMAIL PROTECTED]>
>
> To unsubscribe from the digest, e-mail:
> <[EMAIL PROTECTED]>
>
> To post to the list, e-mail:
> <[EMAIL PROTECTED]>
>
>
> ----------------------------------------------------------------------
Lee R. Toman
[EMAIL PROTECTED]
