$ perl -E 'eval {eval qq{chop "fred"}}; say "Hi"'
Hi
$