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