perl -ane ' if ( /^ddr/ ){ $ddr = $ddr+ $F[5]; } if( /^eth/ ) { $eth = $eth + $F[5]; } END { print "ddr $ddr \n" ; print "eth $eth\n" ; }' file > outputfile