sub edits {
    return unless -f and /^33dc01\..*outer.log$/;
    
    # Set up for in place edit
    local @ARGV = ($_);
    local $^I = '.bak';
    
    print "$File::Find::name\n";
    while (<>) {
        print if $. > 4;
    }
}