#! /usr/bin/perl

use strict;
use warnings;

my $string = 'Object_Plant :Color Position;Object';

#Loesung 1 --> RegEx
{
  $string =~ /^\s*?([^\:]+)\:\s*?([^\;]+)\s*?\;\s*?(.+)/;
  print $1," -> ",$2," -> ",$3,"\n";
}

#Loesung 2 --> substr
{
  my $pos_dp = index($string,':');
  my $pos_sk = index($string,';');
  my $part_one = substr($string,0,$pos_dp);
  my $part_two = substr($string,($pos_dp + 1),($pos_sk - $pos_dp - 1));
  my $part_three = substr($string,($pos_sk + 1));
  print $part_one," -> ",$part_two," -> ",$part_three,"\n";
}