$your_money_scalar =~ s/^\$//;
$your_money_scalar =~ s/,//g;