#!/usr/bin/perl
$file = $ARGV[0];

@lines = `cat $file`;
foreach $l (@lines)
{
    if ($l =~ /([0-9]+)\)  Work ID(.*)complete/)
    {
        print "$1 ";
    }
    elsif ($l =~ /([0-9]+)\)  Task ID(.*)Reply add(.*)   (\d+) /)
    {
        if ($4 < 100) { print "$1 "; }
    }
}