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

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