print header, start_html('log parsing');

open(FILE, "log.txt") or die "Cannot open file: $!";
while(<FILE>) {
my $message = <FILE>;

if ($message =~ m/(^\Alberta226: )([a-zA-Z, 0-9])/) {
print "$1: $2<br>";
}
}
close (FILE) or die "Cannot close file: $!";