while(my $line = <$in>) {
    $line =~ s/ .* report [s]? .* ; .* //sx;
    print $line;
}