use warnings;
use strict;
use Data::Dump;
use Data::Peek qw/DDump/;

my $x = "2.7";
dd {DDump $x}->{FLAGS};
dd $x; # changes flags
dd {DDump $x}->{FLAGS};

__END__

{ IsCOW => 1, POK => 1, pPOK => 1 }
2.7
{ IsCOW => 1, NOK => 1, pIOK => 1, pNOK => 1, POK => 1, pPOK => 1 }