Help for this page

Select Code to Download


  1. or download this
    my $x = "<0>";

for (('<1>','<2>','<3>')) {
   $x =~ s/(<0>)/${1}${_}/;
}
  2. or download this
    <0>
<3>
<2>
<1>
  3. or download this
    <0>
<1>
<2>
<3>
  4. or download this
    my $x = "<0>";

...
      $x =~ s/(\G<\d>)/${1}${_}/g;
   }
}