if($string =~ m!^([\w_]+) :([\w_]+);([\w_]+) $)
{
   # dritter Fall
}
elsif($string =~ m!^([\w_]+) :([\w_]+); $)
{
   # zweiter Fall
}
elsif($string =~ m!^([\w_]+) :; $)
{
   # erster Fall
}

if($element = ~ m!^([\w_]+) :([\w_]+);([\w_]+) $ )
    {
        print "geht auch das?";
    
    }
    elsif($element = ~ m!^([\w_]+) :([\w_]+); $)
    {
        print "geht das?";
    }
    elsif($element = ~ m!^([\w_]+) :; $)
    {
        
        print "</frame entry>";

    }
    else{print "Fehler in Datei: Syntax nicht eingehalten";}

if($string =~ m!^ *([\w_]+) *: *([\w_]+) *; *([\w_]+) * $!
{
  # dritter Fall
}
elsif($string =~ m!^ *([\w_]+) *: *([\w_]+) *; *$!
{
  # zweiter Fall
}
elsif($string =~ m!^ *([\w_]+) *: *; *$!
{
  # erster Fall
}

#! /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";