#!/usr/bin/perl

use strict;
use warnings;

my ($log_qfn) = $ARGV[0]
   or die("usage");

# Encode output.
# Use the encoding that's appropriate for you.
binmode STDOUT, ':encoding(UTF-8)';

my $lines;
{
   # Decode input.
   open my $log_fh, "<:encoding(UCS-2le)", $log_qfn
      or die($!);
   local $/ = undef;
   $lines = <$log_fh>;
   $lines =~ s/\x{FEFF}//g;
}

print(length($lines), "\n");
print($lines);
[download]

1291

--------------------  BackupSet Number :21 --------------------

User name bruce_benson
Backup Operation : Scheduled
Version No: 3.2.6
Total backup set size 42.46 MB
[ 05-22-2009 04:01:08 ]  [Incremental Backup]Backed up file  T:\Quicke
+nw\BENSONS.QPH, 3.26 MB
[ 05-22-2009 04:01:25 ]  [Incremental Backup]Backed up file  T:\Quicke
+nw\BENSONS.IDX, 4.17 MB
[ 05-22-2009 04:01:33 ]  [Incremental Backup]Backed up file  T:\Quicke
+nw\BENSONS.QEL, 4.43 MB
[ 05-22-2009 04:01:36 ]  [Incremental Backup]Backed up file  T:\Passwo
+rdSafe\passwordsafe.dat, 26.46 KB
[ 05-22-2009 04:01:40 ]  [Incremental Backup]Backed up file  T:\Quicke
+nw\BENSONSOFXLOG.DAT, 203.61 KB
[ 05-22-2009 04:02:59 ]  [Incremental Backup]Backed up file  T:\Quicke
+nw\BENSONS.QDF, 30.37 MB
BACKUP START TIME : 05-22-2009 04:01:04
BACKUP END TIME   : 05-22-2009 04:03:00
Total Time        : 00:01:56
Number of files considered for Backup: 13 file(s)
Number of files found to be in sync : 7 file(s)
Backup Completed     [Backed up Files : 6 of 6]

Please note, from your selected backupset, the below listed file(s)/fo
+lder(s) have been excluded from backup in the 'Backup' pane under Too
+ls-->preferences:
C:\Documents and Settings\Bruce\My Documents\
C:\Documents and Settings\Bruce\Desktop\
[download]

Great, that worked also. I'll use it rather than the seek. Thanks for the help. Bruce