bindkey recv 3 command perl my $dec = BarnOwl::getcurmsg()->body; $dec =~ y/a-zA-Z/n-za-mN-ZA-M/; BarnOwl::popless_ztext($dec);