$code  = 'while (<>) {';
$code .= 'if (/';
$code .= join ('/ && /', @regexen);
$code .= '/) {'
$code .= '   print $_;'
$code .= '}} ';
eval $code;
die "Error: $@\n Code:\n$code\n" if ($@);