Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}
eval "\$text =~ tr/$w$b/ */";
print $text;

#!/usr/bin/perl -w
# reads a 2-color XPM; outputs space for white, asterisk for black
...
my ($w, $b) = hex($4) > hex($6) ? ( $3,$5 ) : ( $5,$3 );
eval "\$text =~ tr/$w$b/ */";
print $text;