Verbal, I tried your method but I still get an error. It takes the file in however, it does nothing with it. how come??

#!/usr/local/bin/perl

                       print "Input file name: ";
                       $_ = <>;
                       chop;
                       open(INFILE, $_);
                       while (<INFILE>)
                       {
                               if (m/total/)
                               {
                                       s/^total\s[0-9]+\s[0-9]+\s([0-9
+]+)\s([0-9]+)$/$1 $2/;
                                       print;
                               }
                       }
                       close INFILE;
[download]

Thanks a lot for yout help.. Paav