#!/usr/bin/perl
my $get = "Starting";
open(FH, "/home/cuthbe/programs/perlweb/PCAMWebStatus/log/pd_zvkk.log") || die ("Unable to open pd_zvkk log file : !$ \n");
printf ("My get = $get \n");
while(<FH>) {
  chomp();
  #next if ($_ !~ /$get/);
  if($_ =~ m/$get/) {
  printf ("String found: \"$_\" : \n");
  }

$ perl test.pl
My get = Starting
String found: "Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting." :
(cuthbe@ferrari)-(10:27 AM Mon Nov 14)-(cgi-bin)
$