- or download this
perl -e 'printf "\e[0%dm", 0'
- or download this
printf "\e[$escape;%dm", int(rand 6) + 101 - 60 * ($is_windows || 0);
- or download this
$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ }
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );