Help for this page

Select Code to Download

Select or download this

$a[0] = 'CHARLIE ROOT';
$a[1] = 'HARRY NODE';
s/[$a[~$i]]//g and print while ($i, $_) = each @a;

Select or download this

$a[0] = 'CHARLIE ROOT';
$a[1] = 'HARRY NODE';
s/([$a[~$i]])/$1 eq ' '?' ':''/eg and print while ($i, $_) = each @a;