my $string = 'name1:x:4567:nochmehr:bla:ps';
my ($name) = $string =~ /^(.*?):/;
print $name;