my $x = "<0>";

$x =~ s/(<0>)/$1 . join('', '<1>', '<2>', '<3>')/e;