Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my $newStr;
() = $str =~ m|(\d+)(?{$newStr .= chr($1)})|g;
print "$newStr\n";

Select or download this
```
{kp*
```