eval qq[
    print "1:$^S"; 
    print caller(); 
    eval q[ 
        print "2:$^S"; 
        print caller(); 
        eval q/
            print "3:$^S"; 
            print caller();
       / 
    ] 
];;

1:1
main (eval 55) 1
2:1
main (eval 56) 1
3:1
main (eval 57) 1