#!/usr/bin/perl -w
use strict;
use warnings;

our @av_news;

# Profil-Datei einlesen

my $rw = open(FILE,'E:\Eigene Dateien\Programme\Scrutator\news.xml');
our @news = <FILE>;


# Zeilen bestimmen
our $newslength = @news;

# XML-Datei darf nur bestimmte Länge haben

if(($newslength - 4) % 3 == 0) {
  # Zweite Zeile - Profilname  
  for(my $i = 4;$i < $newslength;$i += 3) {
    # Unnötiges abschneiden
    my $langstring = substr($news[$i],10);
    # Name ermitteln
    for(my $j = 0;$j < 8;$j++) {
      chop($langstring);
      }
    my $length = @av_news;
    $av_news[$length] = $langstring;
    }
} else {
  #...
}

close(FILE); 

1;