+my $ev = AnyEvent::Handle->new(
+ fh => $fh,
+ on_read => sub {
+ my ($hdl) = @_;
+ $hdl->push_read(
+ line => sub {
+ my ($hdl, $line, $eof) = @_;
+ handle_line($line);
+ }
+ );
+ },
+);
+my $ev2 = AnyEvent->timer(
+ interval => 1.0,
+ cb => \&output
+);
+EV::run;
+
+sub handle_line {
+ my $line = shift;
+ $line =~ m#(\d+) /analysis.pl \?ims=\d+&unique=(.*) tffb=(.*)# or return;