perl -wle 'sub a { print +(caller)[1] } ""=~/(?{ a() })/'