#!/usr/bin/perl
use strict;
use warnings;

local $SIG{'__DIE__'} = sub { (my $x = $_[0]) =~ s/foo/bar/g; print $x; die $x; };

eval { die "foo lives here" };

print "got here\n";