use overload
  q[""]    => sub { "@{$_[0]}" },
  fallback => 0;

$SIG{__DIE__} = sub { print "dang - ", @{$_[0]}, $/ };
$@ = bless [qw/that didn't work/];
die;

__output__

dang - thatdidn'twork
that didn't work