eval { 1/0 };
if ($@) { print _MAGIC_CONTENT_OF_LAST_EVAL
# outputs
# { 1/0 }