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;