my $code = "fruit:red:apple";
my $parent = $code;
$parent =~ s/:.*?$//o;