my $buffer = $member_sheet -> contents();
#while ($buffer =~ /\G(<[^<]*>)/scg or $buffer =~ /\G([^<]*(?=<))/scg) {
while ($buffer =~ /(<[^>]+>|[^<]+(?=<))/sg) {
    $_ = $1;
...