$number = shift;
$regexp[$_] = shift foreach (0..$number-1);
@compiled = map qr/$_/, @regexp;
while ($line = <>) {
  foreach $pattern (@compiled) {
    if ($line =~ /$pattern/) {
      print $line;
      last;
    }
  }
}