#!/usr/bin/perl

my $IN;

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

while (<$IN>){
        
        if (/TESTWORT1/ .. /\-\-\-/) {
                print_log "TESTWORT1 found";
                
        }
        else {
                print_log "TESTWORT1 notfound";
        }
}