in reply to Escape characters with FORMAT?
format OUT = ^[@<<<< ^[@<<<<<<<<<<<<<<<<<< ^[@<<<<<<< +@<<<< $Status, $element, $ms, $count . $Status="[32m$Status"; ...
where ^[ is a literal chr(33).
update: corrected format declaration
--shmem
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
|
|---|