#!/usr/bin/perl -w

# Datei oeffnen
open (USERS, "<users.txt") or die "Konnte Datei nicht oeffnen";
# in ein Array einlesen
@user_lst = <USERS>;
# Datei wieder schliessen
close(USERS);
# durchiterieren durch alle user
foreach $users (@user_lst)
{
$users=~ /(\w.*)\s/;
print "$1 \n";
}