in reply to One-liner's quoting and subroutine

turn the oneliner into a multiline program, use B::Deparse to help you