if ($line =~ /\s*APP>\s*LumaIntraMode\s:(\w+),\suse_intrabc:(\d)/i) {
   $values{Luma_mode} = $1;
}

# etc...

##</code><code>##

print "Luma Mode: ", $values{Luma_Mode}, "\n";
print "Luma Angle: ", $values{Luma_Angle}, "\n";

# etc...