use strict;
my $number="3.141529";
print "$number is a C float!\n" if $number=~/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/;