my $string = 'name1:x:4567:nochmehr:bla:ps';
my ($name) = $string =~ /^([^:]+)/;
print $name;