Good catch. AFAIK, B::Deparse is frought with bugs, as it is... I can rarely get it to deparse anything but the simplest Perl.

   MeowChow                                               
                print $/='"',(`$^X\144oc $^X\146aq1`)[-2]