@si = grep /(class|struct)\s+[^:{;]+:[\w<>\s]+{/, $string;