#!/usr/bin/perl

my $IN;

open ($IN,'</test.txt') ;

while (<$IN>){
        
        if (/TESTWORT1/ .. /\-\-\-/) {
                print_log "TESTWORT1 found";
                system 'echo 0 > /test.txt';
                seek $IN, 0, SEEK_SET;
        }
        else {
                print_log "TESTWORT1 notfound";
        }
}