#!/usr/local/bin/perl
my @fileslurp = ();
my $datefld = "";
my $testdate = "200208";
my $newline = "Not the old date\n";
my $thisfile = "/var/tmp/junk.log";

open (FILE,"$thisfile");
@fileslurp = <FILE>;
close FILE;
($datefld) = split(/ /,@fileslurp[$#fileslurp]);
@fileslurp[$#fileslurp] = $newline if ($datefld eq "$testdate") ;
foreach $x (@fileslurp) {
print $x;
}