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";
Bought a souvenir
Emailed all my friends about it
Got blowed up
Hit him right dead in the jaw
Made it awkward
Took a selfie
Want to go home
Results (362 votes). Check out past polls.