imap dumper <ESC>^iprint STDERR Data::Dumper->Dump([<ESC>llyw$a], ['<ESC>pa']);<ESC>:s/%/\\%/<CR><ESC>/<UP><UP><CR>``