@ARGV ~~ /\.mdb$/i

##</code><code>##

if (grep { not /\.mdb$/i } @ARGV) {
  print STDERR "All parameters must be MDB files\n";
  exit;
}

##</code><code>##

@ARGV ~~ /\.mdb\z/
   or die "All parameters must be MDB files"

##</code><code>##

@ARGV ~~ sub {$_[0] !~ /\.mdb$/i}
   and die "All parameters must be MDB files"

##</code><code>##

@ARGV !~~ /\.mdb$/i
   and die "All parameters must be MDB files";

##</code><code>##

given($foo) {
  when (! /some regexp/) {...}
  ...
}

##</code><code>##

given($foo) {
  when ! (/some regexp/) {...}
  ...
}