open 0 or print "Can't rebleach '$0'\n" and exit;

##</code><code>##

(my $shirt = join "", <0>) =~ s/.*^\s*use\s+Acme::Bleach\s*;\n//sm;

##</code><code>##

local $SIG{__WARN__} = \&dirty;

##</code><code>##

do { eval brighten $shirt; exit }
  unless dirty $shirt && not dress $shirt;

##</code><code>##

sub brighten {
  local $_ = pop;
  s/^$tie|[^ \t]//g;
  tr/ \t/01/;
  pack "b*", $_
}

##</code><code>##

open 0, ">$0" or print "Cannot bleach '$0'\n" and exit;

##</code><code>##

print {0} "use Acme::Bleach;\n", whiten $shirt and exit;

##</code><code>##

sub whiten {
  local $_ = unpack "b*", pop;
  tr/01/ \t/;
  s/(.{9})/$1\n/g;
  $tie.$_
}