eval {
  # your code to be trapped
  # ... or die "error message 123"
}
if ($@) {
  # do your error checking, such as $@=~/error message 123/
}