using grep instead of List::Util qw(first), one less dependency.

Signed-off-by: Thiago Rondon <thiago.rondon@gmail.com>