my @matches = ($data =~ m/>(?:%([^%]+)%)+</g );