The deparser, when it works, returns your code (more or less) in a pretty format.

perl -MO=Deparse MyScript.pl
[download]