my $number = '1.00';
print "contains period\n" if $number =~ /\./;
print "integer\n" if $number == int($number);