use strict;
use warnings;

my $get = "Starting";
printf ("My get = $get \n");
foreach (<DATA>)
  {
  chomp();
  printf ("String = $_ \n") unless($_ !~ /$get/);
  }

__DATA__
Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting.
Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Removing old clientacc files.
Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Running the stored proc.

PL/SQL procedure successfully completed.

##</code><code>##

My get = Starting 
String = Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting.