foreach(`ps aux | grep java`){
  if (/-Xmx((\d+)[gG])/) { 
    $mem += $2 
  }
}

print "total memory reserved by Java processes: ${mem}G\n"