$_srp_price = "$4.95";
print $_srp_price;

##</code><code>##

$ perl -le '$_ = "$4.95"; print'
.95

##</code><code>##

$ perl -wle '$_ = "$4.95"; print'
Use of uninitialized value in concatenation (.) or string at -e line 1.
.95

##</code><code>##

$ perl -wle '$_ = q($4.95); print'
$4.95

##</code><code>##

$ perl -wle '$_ = "\$4.95"; print'
$4.95