eval{ die 1; };  warn $@;
$SIG{__DIE__} = sub{
     my( $err ) = @_;
     $err=~ s/ at .*? line \d+.$/\n/;
     die $err;
};
die 2;
__END__
1 at - line 1.
2