sub run_rexes {
    my ($self,$rexes_aref) = @_;
    foreach my $vertex ($graph->unique_vertices) {
        next unless ($graph->get_vertex_attribute($vertex, 'original'));
        if (is_regex_matches($vertex,$rexes_aref)) {
            $graph->set_vertex_attribute($vertex, "marked", 1);
        }
    }
}