use B;
my $lvalue = \substr("abc",1,1);
my $lvobject = B::svref_2object($lvalue);
print B::PVLV::TYPE($lvobject);