my $hosts = '/home/webmaster/cgi-bin/hosts';                           
my $name = ();                                                         
my $ip = $ENV{'REMOTE_ADDR'};                                          
open(ABSENDER,"<$hosts") or die $!;                                    
while(my $line = <ABSENDER>){                                          
chomp $line; #Zeilenumbruch entfernen                                  
if($line =~ /^$ip/) { #wenn Zeile mit IP beginnt                       
$name = (split (/#\s+/,$line))[1]; #Name ist durch leerstellen getrennt
my  $alles_nach_der_pipe = (split(/\|/,$name))[-1];