open(LOG, "home.txt") or die "Error: $!";
my @lines = <LOG>;
close(LOG);

foreach my $line (@lines)
{
    $line =~ m/\s+([a-zA-Z0-9])$/;
     print "$1<br>";
}