#!/usr/bin/perl

use strict;
use warnings;

my $input = "-- -----";

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