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