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