Help for this page

Select Code to Download

Select or download this

do_something(@compare)
  if grep { $test =~ $_ } @compare;

Select or download this

use List::Util 'first';

do_something(@compare)
  if first { $test =~ $_ } @compare;