use strict;
use warnings;
BEGIN {
    *CORE::GLOBAL::eval = sub {print "standard eval replaced!\n"};
}
eval "print qq{Hello world!\n}";
__END__
Hello world