perl -ne 'print $1."\n" while $_=~s/{(.*?)}//;'