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