perl -e 'printf "\e[0%dm", 0'


##</code><code>##

printf "\e[$escape;%dm", int(rand 6) + 101 - 60 * ($is_windows || 0);


##</code><code>##

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  }  sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu" );