<global>
                        <pref name="trusted_ca" value="cacert.pem" />
                        <pref name="hide_toolbar" value="no" />
                        <pref name="hide_msglog" value="no" />
                        <pref name="auto_enable_new_plugins" value="yes" />
                        <pref name="use_client_cert" value="no" />
                        <pref name="nessusd_port" value="yes" />
                        <pref name="nessusd_user" value="openvas" />
                        <pref name="paranoia_level" value="yes" />
                        <pref name="targets" value="192.168.0.197" />
                        <pref name="name" value="Report 20100304-235837" />
                        <pref name="comment" value="" />
                </global>

While this might look daunting it’s easy to pull anything that you want out with almost the same code as in the last example.

foreach (@file) {
	if(/<global>/ ... /<\/global>/) {
		if(/<pref name="(.+)" value="Report (.+)" \/>/) {
			$name = $1;
			$report = $2;
		}
	}
}

In a regex a “()” indicates a group, in perl you can refer to these groups by starting at 1. A “.” is a wild card match and a “+” states that it will match at least once but will continue to match if it can.