my $equal = 
   $x eq $y || eval { use warnings FATAL => qw( numeric ); $x == $y };