OUTER: while (my $line = <$file>) {
  INNER: for my $pattern (@compiled_patterns) {
    print $line, last INNER if $line =~ $pattern;
  }
}