my $get = "Starting";
   open(FH, "$pd_zvkk") || die ("Unable to open pd_zvkk log file: $pd_zvkk : !$ \n");
   printf STDERR ("My get = $get \n");
   foreach (<FH>) {
    #printf STDERR if /$get/;
    chomp();
    unless($_ !~ /$get/) {
      printf STDERR ("String = $_ \n");
     }
   }

##</code><code>##

[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] My get = Starting
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String = Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting.
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] My get =
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String = Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting.
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String = Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Removing old clientacc files.
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String = Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Running the stored proc.
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String =
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String = PL/SQL procedure successfully completed.