and if you wish to keep spaces between words$a[0] = 'CHARLIE ROOT'; $a[1] = 'HARRY NODE'; s/[$a[~$i]]//g and print while ($i, $_) = each @a;
$a[0] = 'CHARLIE ROOT'; $a[1] = 'HARRY NODE'; s/([$a[~$i]])/$1 eq ' '?' ':''/eg and print while ($i, $_) = each @a;
In reply to Re: Mostly Harmless
by Lennotoecom
in thread Mostly Harmless
by emdub
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |