test.pl

use strict;
use warnings;

use Data::Dumper;
use B;

local $! = 1;

my $obj = B::svref_2object(\$!);
print Dumper($obj, $obj->MAGIC->FLAGS);

my $x = "$!";

$obj = B::svref_2object(\$!);
print Dumper($obj, $obj->MAGIC->FLAGS);

my $y = 0 + $!;

$obj = B::svref_2object(\$!);
print Dumper($obj, $obj->MAGIC->FLAGS);


__END__
$VAR1 = bless( do{\(my $o = 39739184)}, 'B::PVMG' );
$VAR2 = 0;
$VAR1 = bless( do{\(my $o = 39739184)}, 'B::PVMG' );
$VAR2 = 0;
$VAR1 = bless( do{\(my $o = 39739184)}, 'B::PVMG' );
$VAR2 = 0;