$ perl -MTry::Tiny -MData::Dumper -e'my $e = do { package E; use overload q[""] => sub {""}, fallback=>1; bless [] }; try { die $e } catch { print Dumper($_ eq "") }'