Re: keeping split delimiters causing empty string elements

[Athanasius]

Hello previous,

TMTOWTDI: Put the separator in a single capture group:

use strict;
use warnings;
use Data::Dump;

my  $eqn  = '$profit=$sales-$cogs';
my  @wrds =  split /(=|-)/, $eqn;
dd \@wrds;

Output:

23:13 >perl 1596_SoPW.pl
["\$profit", "=", "\$sales", "-", "\$cogs"]

23:13 >

See the final paragraph of split.

Hope that helps,

[previous]

Hello Athanasius Thanks very much for your help and solution.