my $string = 'abc::def::ghi::jkl::mno::pqr';
my ( $erster, $zweiter, @rest ) = split /::/, $string;
print "erster: $erster, zweiter: $zweiter\n";
print "und der ganze rest: ";
print join ', ', @rest;
print "\n";