I don't quite understand what you're after, but you can check this module: B::Deparse

Update: Sorry haukex, the spoilers did not work when I first tried to click on them. Now that I can see them, I understand your point.