Help for this page

Select Code to Download

Select or download this

$s =~ s>{.*?}
       >{$sub[$n++]}>gx;
$s =~ s){.*?}
       ){$sub[$n++]})gx;