Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $ufp = qr{ \d* [.]? \d+ | \d+ [.]? \d* }xms;
...
'56.' -> '56'
'78' -> '78'
'0.12' '0.98' '.34' '.76' '56' '54' '78' '32' '42' '.7'