perl -lne 'print if /(\w+)::\1/ .. /^\}/' *.cpp