in reply to RFC: Text::Grap
You might want to look at first() from List::Util and any() from List::MoreUtils :-)