my ($changeType) = $reportData[$x] =~ /\>([A-z]+)\</;