Биллинговая система Nodeny

#!/usr/bin/perl 

$VER=50.32;

use DBI;

$Main_config='/usr/local/nodeny/nodeny.cfg.pl';
$call_pl='/usr/local/nodeny/web/calls.pl';

require $Main_config;
require $call_pl;

$DSN="DBI:mysql:database=$db_name;host=$db_server;mysql_connect_timeout=10";
$dbh=DBI->connect($DSN,$user,$pw,{PrintError=>1});
$dbh->do("SET character_set_client=cp1251");
$dbh->do("SET character_set_connection=cp1251");
$dbh->do("SET character_set_results=cp1251");


$sth=$dbh->prepare("update users set state='off' where state='on' AND paket in (select id from plans2 where flags REGEXP ('k'))");
$sth->execute;
$sth=$dbh->prepare("INSERT INTO pays SET admin_id=0, admin_ip=0, office=0 ,mid=0,cash=0,type=50,category=410,reason='',coment='Пользователи в заблокированных тарифах отключены',time=UNIX_TIMESTAMP()");
$sth->execute;

mysql> help create trigger;

DROP TRIGGER IF EXISTS `SetStateOff`;
DELIMITER |
CREATE TRIGGER SetStateOff BEFORE UPDATE ON users
  FOR EACH ROW BEGIN
  IF (NEW.paket in (select id from plans2 where flags REGEXP ('k')) ) 
   THEN 
       SET NEW.state = 'off';
  END IF;

  END
|
DELIMITER ;

select id from plans2 where flags REGEXP ('k'))

select id from plans2 where flags NOT REGEXP ('k')

(?!k)