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

my ($REPFILE, $report);

undef $/;

open REPFILE, "report.rpt" or die "Cant open $REPFILE: $!\n";

$report = <REPFILE>;

$report =~ s/^User Report.*//mg;
$report =~ s/^All Users.*//mg;
$report =~ s/^User Name.*//mg;
$report =~ s/^-> Token.*//mg;

print $report;

close REPFILE;