Alternatively, use a regular expression capture.

$ perl -le '
$str = q{Price 15.40};
( $str ) = $str =~ m{(\d+\.\d+)};
print $str;'  
15.40
$
[download]

I hope this is useful.

Cheers,

JohnGG