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