use Test::More 'tests' => 2;

my $x = 1 - 2**-52;

ok( $x != int $x, 'int method works' );
# this test fails
ok( $x =~ /\./, 'RegExp method works' );