# Links laden
##############

my ( @data, @links, @texts );

if (! -f $file ) {
   &create_linklist;
}
else {
   open ( F, '<', $file ) || die "Could not open $file. $!";
   @data = grep { /^[^#]/ } <F>;
   close F;
   $i = $k = 0;
   foreach ( @data ) {
        chomp ( $_ );
        if ( $_ =~ /^LINK:\s/ ) {
                $_ =~ s/^LINK:\s//;
                $links[$i] = $_;
                $i++;
        }
        else {
                $_ =~ s/^TEXT:\s//;
                $texts[$k] = $_;
                $k++;
        }
   }
}