> Um módulo que tem vários atalhos interessantes é o List::MoreUtils: > > use List::MoreUtils qw/any/; > if ( any { m/$marca/io } $tipo, $descricao ) { > # código > } > Perfeito Nilson :) -- Igor Sutton Lopes <igor.sutton em gmail.com>