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

my $date = '20020111';

while( <DATA> ) {
	# ignore lines until the first eight characters of the line are 
	# greater than or equal to $date
	next unless( substr($_, 0, 8) >= $date );
	print ;
}

__DATA__
20020109 164741    892 26,212 Directories  52,846 Files (805.49 MB) Backed Up a
20020110 164741    892 26,212 Directories  52,846 Files (805.49 MB) Backed Up b
20020111 164741    892 26,212 Directories  52,846 Files (805.49 MB) Backed Up c
20020111 164741    892 26,212 Directories  52,846 Files (805.49 MB) Backed Up x
20020112 164741    892 26,212 Directories  52,846 Files (805.49 MB) Backed Up y
20020112 164742    892 26,212 Directories  52,846 Files (805.49 MB) Backed Up z
20020113 164741    892 26,212 Directories  52,846 Files (805.49 MB) Backed Up 1