Help for this page

Select Code to Download

Select or download this

while ($str =~ s/~~(\$.+?)~~/__TOKEN__/) {
    my $val = eval $1;
    $str =~ s/__TOKEN__/$val/;
}

Select or download this
```
$str =~ s/~~(\$.+?)~~/eval $1/ge;
```