use Test::More;
use Test::Fatal 'exception';
like exception {
   die "Blam";
}, qr/\bBlam\b/, 'exception is as expected';