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