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