my coding is

#!/usr/bin/perl
use warnings;
use strict;

my $f = 'chap 89.9';
 if($f=~m/chap.( |[a-z])*(\d+)/i)
                {
                print "  $2 \n";
                }


1.its print only 89

out put :

*..print full digit number 89.9
* also need n number of digit number