How to view the code block genereated by n or p switch in perl one liner

Question

I am sure I have run this before but for the life of me cant find any reference in perlrun or through Google. Hopefully some of the perl boffins here will be able to answer

Answer 1

Try

perl -MO=Deparse -ne 'print if /^00/'

It will give you the output like this:

LINE: while (defined($_ = <ARGV>)) {
    print $_ if /^00/;
}
-e syntax OK

Answer 2

You may be thinking of the B::Deparse function:

perl -MO=Deparse -ne 'print if /^00/'