my $x = "<0>";

for (('<1>','<2>','<3>')) {
   if ($x =~ /<\d>/gc) {
      $x =~ s/(\G<\d>)/${1}${_}/g;
   }
}