Adam,
You could add a line to your script that adds the extracted number to a variable
(like $total).
Just add:
...
$inline = ;
chomp $inline;
@line = split (" " , $inline);
$total += $line[0] unless($line[0] =~ m/[^\d]/); #added
print <<"EOF";
...
You can omit the unless statement if you are p
For perl programming in a Windows environment, I use Textpad. It has a lot of
great tools, but it's greatest appeal (for me) is the included perl syntax
library. It's cheap too--only about $24 USD (which sure beats CodeWright's
$300). I do all of my perl programming with it.
Visit www.textpad.com