in reply to how to split full digit number?
See below. I have added an extra pair of parantheses to make .9 optional...
my $f = 'chap 89.9';
print " $2 $4\n";
Results (298 votes). Check out past polls.