print grep /^SystemImage: /, $res->result();  # replaces your "foreach" block