Color Inversion by jonathan camacho

#!perl -pl
next if /^$/;@l=();
for$i(1,3,5){push(@l,unpack("H2",chr(255-ord(pack("H2",substr($_,$i,2))))))}
$"="";$_="#@l"

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page