Help for this page

Select Code to Download


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

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

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