#! /usr/bin/perl

use strict;
use warnings;

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

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";