# chop $reqid; # use chomp
  chomp $reqid;

##</code><code>##

while (<IN>) {
  chomp;
  next unless /Task:id=(\d+)/;

  my $taskid = $1;
  next unless ($taskid eq $reqid); ## <-- add
  my (undef,$timestamp,undef)  = split /\s+/,$_,3;
  ..