#!/usr/bin/perl
use File::Find;
use Tie::File;

my $DIRECTORY = $ARGV[0];
find(\&edits, $DIRECTORY);

sub edits() {
    if ( -f and /^33dc01\..*outer.log$/ ) {  
        foreach ( $File::Find::name ) {
            print "$File::Find::name\n";
            tie my @file, 'Tie::File', $File::Find::name or die "Can't tie $File::Find::name $!";
            splice @file, 0, 4;
            untie @file;
        }
    }
}