if ($insql =~ m/.*~\w+~.*/) {
                    print "MATCHED IT\n";}
                    errmsg(1);
                    die;
                };