my @parts=("\xF0C.z..LM  0087AAaaa..LM  0087BBbbb\xF7"=~ /\xF0C.[~z](..LM  0087[A-Z][A-Z].+?)+\xF7/s);
print STDERR @parts." parts\n";
for($a = 0; $a < @parts; $a++) {
print STDERR ($a+1).": ".length($parts[$a])." length\n";
}