Heres what I got so far. thanks for the assist again!
#!/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//g;
$report =~ s/^All Users//g;
$report =~ s/^User Name//g;
$report =~ s/^-> Token//g;
print $report;
close REPFILE;
#First section of report.rpt follows
User Report Date: 09/26/2000 09:55:13
All Users Page: 1 of 114
User Name Default Login Name Default Shell Name
-> Token Serial No. Replacement Last Login Original Token Type
Temp 1 Temp1
-> 000026546546 01/01/1986 00:00:00 SoftID
Temp 2 temp2
-> 000034535654 01/01/1986 00:00:00 SoftID
Temp 3 temp3
-> 000023465467 01/01/1986 00:00:00 SoftID