$ perl -e '$n = q/eval { die;}; print "1: $@"/; eval {$n}; print "2: $@"'