sub r { $_[0] ? 'fractional' : 'integer' }

for my $n (
   '1.00',
   2**50,
) {
   print(
      "$n:\n",
      "method 1: ", r( $n =~ /\./                      ), "\n",
      "method 2: ", r( $n =~ /\.(?!0*$)/               ), "\n",
      "method 3: ", r( sprintf('%f',$n) =~ /\.(?!0*$)/ ), "\n",
      "method 4: ", r( int($_)!=$_                     ), "\n",
      "\n",
   );
}