perl -e "push@_,$_ for reverse q.e...q.n.;for(@_){$_=unpack(q|c|,$_);@a=split//;shift@a;$_=join q||,@a};print $_+$l,$/ for reverse@_"