#!perl

use strict;
use warnings;

my $s = eval "s/temp/;";
print qq[<$@>] unless ($s);
print $/;
$s = eval 'my $intern = eval "s/temp/;"; $@ = ""; return $intern;';
print qq[<$@>] unless ($s);
__OUTPUT__
<Substitution replacement not terminated at (eval 1) line 1.
>
<>