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
You may be thinking of the B::Deparse function:
perl -MO=Deparse -ne 'print if /^00/'