use List::Util qw( first );
open my $fh, '<', $your_file;
my $line = first { m{ $your_pattern }x } <$fh>;