#!/usr/bin/perl -w

use strict;

my ($passwd, @inhalt, @csv, @trennen, $benutzer, $a);

$passwd = "passwd";

if (! -z $passwd) {
	open CSV, $passwd;
	@csv = <CSV>;
	close CSV;
	
	foreach (@csv) {
		chomp;
		@trennen = split(/:/,$_);
		$benutzer = $trennen[0];
		my @v = split(/\./, $benutzer);
		print $v[0] . "\n";

	}

}