#!/usr/bin/perl -w

use strict;

my($in, $out, @rest) = @ARGV;

open (INFILE, "<$in") or die "can't open $in $!";
open (OUTFILE,">$out") or die "can't open $out $!";

while (<INFILE>)
{
    print OUTFILE "$1 $2\n" if /^total.*(\d+)\s+(\d+)\s*$/;
}
close INFILE;
close OUTFILE;