#!/usr/bin/perl -p
s/#([0-9A-F]{6})/"#".sprintf("%06X", 0xFFFFFF-hex($1))/ieg