#!/usr/bin/env perl
use strict;
use warnings;

open my $in, "<", shift;

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