print "contains fractional component\n" if $number =~ /\.(?!0*$)/;