my $level = length($1 // '') / 4;