my ($x, $y, $scale, $angle) = $group->get_simple_transform;
#to
my ($x, $y, $scale, $angle) = $group->get_transform;