#test.pl - testfile with the heart of the parser
#open the file to search trough
unless (open FILE, "<../perl/testproto/Protokoll.log") {
    die "Cannot open Keywordfile: $!\n";
}

#search for the regexp in the file
while (<FILE>) {
  chomp;
  if (/.*Cl(.*)/) {
    print $1;
     }
  else {
    print "Keine Treffer.\n";
  }
}

##</code><code>##

S: 07:02:36 --------------------------------------------------------------------
S: 07:02:36 Clinic: Knie Klinik
S: 07:02:36 Surgon: Prof X
S: 07:02:36 Patient Code: Kiro
S: 07:02:36 Size: 30 cm
S: 07:02:36 Weight: 50 kg
S: 07:02:36 Birthdate: Sa 1. Jan 2000
S: 07:02:36 Sex: male
S: 07:02:36 Indication: