#!/usr/bin/perl -w
use strict;

my $fold = ';FOLD ; Collisionmonitoring between 123RB_456(KR123R4567ultra) and 654RB_321(KR765R4321prime) on;%{PE}%R 8.2.20,%MKUKATPBASIS,%CCOMMENT,%VNORMAL,%P 2:Collisionmonitoring between 123RB_456(KR123R4567ultra) and 654RB_321(KR765R4321prime) on';
my ($comment) = $fold =~ /;FOLD\s*;\s*(Coll.+?);%/;

my ($text, $status) = split(/\s+(\w+)$/, $comment, 2);

print "$text \t $status \n";