同等とは聞くけど、これはだめなんだよな？
$foo = q(huh?);
$foo =~ s/huh\?/die(q(huh))/e;
if ($@) {print q(died)}