This script will replace all the unsighted unprintable characters bleached out of your source file by a:

use Acme::Bleach;

directive with elegant (perhaps) ASCII perl code. 

#!/usr/bin/perl
# unbleach.pl - for really dirty programs
use strict;
my $washing = pop or carp("Usage: unbleach.pl [file]");
open white,"<$washing" or carp("Can't get $washing");
local $/; $_=<white>;
s/(.*)^\s*use\s+Acme::Bleach\s*;\n(?: \t){8}/$1/
or carp("$washing is not bleached!");
open line,">$washing" or carp("Can't dry $washing");
print line out($_);
sub out {s/\n//g;tr/ \t/01/;pack "b*",$_;}
sub carp {print shift and exit}

=head1 NAME

unbleach.pl - For I<really> unclean programs

=head1 SYNOPSIS

unbleach.pl [file]

=head1 DESCRIPTION

This script will replace all the unsighted unprintable 
characters bleached out of your source file by a:
 
    use Acme::Bleach;
 
directive with elegant (perhaps) ASCII perl code. 

It also removes the use bleach line when it rewrites 
the source code. The code continues to work exactly 
as it did before, but now looks like normal!

=head1 DIAGNOSTICS

=item C<Can't get '%s'>

unbleach.pl could not read the source file.

=item C<'%s' is not bleached!>

unbleach.pl will only process files that have been 
previously bleached and have the expected format.

=item C<Can't dry '%s'>

unbleach.pl could not open the source file to modify it.

=head1 SEE ALSO

http://www.cpan.org/authors/id/DCONWAY/Acme-Bleach-1.12.tar.gz
http://www.perlmonks.com

=head1 AUTHOR

not Damian Conway (as if you couldn't guess)

=head1 COPYRIGHT

Copyright (c) 2001, tachyon. All Rights Reserved.
This script is free software. It may be used, redistributed
and/or modified under the terms of the Perl Artistic License
(see http://www.perl.com/perl/misc/Artistic.html)

[download]

In reply to unbleach.pl by tachyon

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.