c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $eqn = '$profit=$sales-$cogs';
 my @wrds = split /(?|(=)|(-))/, $eqn;
 dd \@wrds;
"
["\$profit", "=", "\$sales", "-", "\$cogs"]

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $eqn = '$profit=$sales-$cogs';
 my @wrds = grep defined, split /(=)|(-)/, $eqn;
 dd \@wrds;
"
["\$profit", "=", "\$sales", "-", "\$cogs"]