That throws text like this for example

    (void)( { while (PL_curstack != PL_mainstack) { Perl_dounwind(-1);
+ (void)( { SV **sp = PL_stack_sp; PERL_SI * const prev = PL_curstacki
+nfo->si_prev; if (!prev) { fprintf((PL_stderrgv && (((svtype)((PL_std
+errgv)->sv_flags & 0xff)) == SVt_PVGV) && (((PL_stderrgv)->sv_u.svu_g
+p)->gp_io) && ((XPVIO*) ((((PL_stderrgv)->sv_u.svu_gp)->gp_io))->sv_a
+ny)->xio_ofp ? ((XPVIO*) ((((PL_stderrgv)->sv_u.svu_gp)->gp_io))->sv_
+any)->xio_ofp : stderr), "panic: POPSTACK\n"); Perl_my_exit(1); } (vo
+id)( { ((XPVAV*) (PL_curstack)->sv_any)->xav_fill = sp - PL_stack_bas
+e; PL_stack_base = ((prev->si_stack)->sv_u.svu_array); PL_stack_max =
+ PL_stack_base + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = P
+L_stack_sp = PL_stack_base + ((XPVAV*) (prev->si_stack)->sv_any)->xav
+_fill; PL_curstack = prev->si_stack; } ); PL_curstackinfo = prev; } )
+; } } );
[download]

That is unreadable