my $regex = qw{THEMA\s*.*(\d{4}).*\r\n$};