open my $fh, '<', $log_file or croak "Couldn't open '$log_file'"; while (<$fh>) { push( @session, $_ ) if (/^\d\d\/\d\d\/\d\d.+Start of Logging$/m ... /^\d\d\/\d\d\/\d\d.+End of Logging$/m) }