my @selected_names = grep(m/.*!todd/, @all_names);