if (not $inst =~ /lea/i) {
  # do things
}