#!/usr/bin/perl -w
use strict;

my ($REPFILE, $report);

undef $/;                    # Allows whole file to be slurped

open REPFILE, "sample.rep" or die "Can't open file $REPFILE: $!\n";

$report = <REPFILE>;         # All file now in report variable
                             # Only do this for reasonably sized
                             # report files or buy some memory :)

$report =~ s/^User Report//g;
$report =~ s/^Other Header Stuff//g;

print $report;