@regexen = @process;
    for (@regexen) {
        quotemeta;
        $_ = qr/$_/;
    }
    for ( my $i = 0; $i <= $#alert; $i++ ) {
        unless(grep /$regexen[$i]/ , @ptable) {
            $alerts{"$alert[$i]"} .= "\n$message[$i]";
        }
    }