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