use strict;
use warnings;
sub scrub_text {
return if /^\x89PNG/ || /^PK\x03\x04/;
s/opensesame/xxxxxxxxxx/g;
s/hunter2/xxxxxxx/g;
}
sub keep_file {
if (m%^secret-directory/% || m%settings\.ini$%) {
undef $_;
} else {
s/bruce/batman/g;
1;