my $x = "<0>";

for (reverse '<1>', '<2>', '<3>') {
   $x =~ s/(<0>)/${1}${_}/;
}