sub {(index($_[0]->as_text, '4') != -1) &&  ($_[0]->as_text =~ /met/i)