my @matches = ($data =~ m/(?:%(\w+)%)/g );