use feature ":5.14";
use warnings FATAL => qw(all);
use strict;
use Data::Dump qw(dump pp);

my $i = 'exit(); say "Hello" op';

eval $i;
say $@;