my $string1 = "<>randomtext<>blablabla<-<->>-bla";
my $string2 = "ABCD";
$string1 =~ s|(<>[^<]+)|$1${string2}|; # Ersetze in $string1 das Suchmuster durch das gefundene, also $1, und string2