my $text="ABCDE<\/Text>TUVWX";

my @splitted=[];

@splitted=split("\<\/Text\>".$text);

print "0.".$splitted[0]."\n";
print "1.".$splitted[1]."\n";