sub rc {
	my $n = int shift()/1024;
	$n =~ s/(\d+?)(\d{3})$/$1,$2/;
	return $n;
}

s/([^:]+:)\s+(\d+)\s+KB/
	sprintf "%-14s%10s MB", $1, rc($2)/e;

s/^\=+$/"=" x 68/e;

my $IMCfmt = "%-17s%17s%17s%17s";

s/^(Name)\s+(Mem Used)\s+\(KB\)\s+(HWM Used)\s+\(KB\)\s+(Cached)\s+\(KB\)/
	sprintf $IMCfmt, $1, $2." (MB)", $3." (MB)", $4." (MB)"/e;

s/^([APPL-|DBMS-|FMP_|PRIVATE|DB-]\S*)\s+(\d+)\s+(\d+)\s+(\d+)/
	sprintf $IMCfmt, $1, rc($2), rc($3), rc($4)/e;