#!/usr/bin/perl

while(<>) {
    (/^2000-08-02 09:21:08/ .. /^2000-08-02 10:19:35/) && print;
    (/^2000-08-02 16:37:01/ .. /^2000-08-02 17:22:36/) && print;
    (/^2000-08-03 06:20:19/ .. /^2000-08-03 08:59:26/) && print;
    (/^2000-08-03 10:22:08/ .. /^2000-08-03 11:01:18/) && print;
    (/^2000-08-03 11:36:35/ .. /^2000-08-03 11:56:00/) && print;
    (/^2000-08-03 14:21:42/ .. /^2000-08-03 15:17:22/) && print;
    (/^2000-08-03 15:57:56/ .. /^2000-08-03 16:25:02/) && print;
    (/^2000-08-03 17:55:25/ .. /^2000-08-03 18:29:32/) && print;
    (/^2000-08-03 18:29:32/ .. /^2000-08-03 19:07:02/) && print;
}
