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