my $x = "<0>";

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