while( !$found && defined( my $log_line = $bw->readline ) ) { if ($log_line =~ /GET \/myapp\//) { $last_line = $log_line; $bw->close(); } } #### while(defined( my $log_line = $bw->readline ) ) { if ($log_line =~ /GET \/myapp\//) { $last_line = $log_line; last; } } $bw->close();