print join ',', split '([=-])', '$profit=$sales-$cogs';;
$profit,=,$sales,-,$cogs