4478 00300 064 01 01/11/19 00:00:41 03 00000092a71228a9 255 01 00:00:30 01 00 00 00 DID 0000000000000000 000 0000000000000000 0000000000000000 0000000000000000 000 61<BR>

##</code><code>##

#!/usr/bin/perl
print "DateSearch = d\n";
print "Timesearch = t\n";
print "Make Your Choice.";

chomp($choice = STDIN);

if ($choice =~ /d/) {
chomp($date = STDIN);
open(FILE, "/dave/MVPTEST/mvpdoc");
while (<FILE>) {

@lines = split(/\n/, $_);

foreach $lines (@lines) {
if ($lines =~ /(\d{4})\s(\d{5})\s(\d{3})\s(\d{2})\s(\d{2}\/\d{2}\/\d{2})\s(\d{2}\:\d{2}\:\d{2})/) {
if ($date =~ /$5/) {

print "\n@lines\n";
}
}
}
}
}
elsif ($choice =~ /t/) {
chomp($time = STDIN);
open(FILE, "/dave/MVPTEST/mvpdoc");
while (<FILE>) {

@lines = split(/\n/, $_);

foreach $lines (@lines) {
if ($lines =~ /(\d{4})\s(\d{5})\s(\d{3})\s(\d{2})\s(\d{2}\/\d{2}\/\d{2})\s(\d{2}\:\d{2}\:\d{2})/) {
if ($time =~ /$6/) {

print "\n@lines\n";
}
}
}
}
}