if($input =~ !/^\*\*\*INPUT STATEMENT:/i){
    print "Treffer: ".$input."\n";
}