my @errors;

length $message->as_string or
  push ( @errors, 'Message empty' );
$message->as_string =~ /\A\s*\z/ or
  push ( @errors, 'Invalid message' );

if ( @errors ) {

  foreach my $e ( @errors ) { cluck "in_filepath: $e"; }
  next;
}