open LOG, "home.txt" or die $!;
while(<LOG>) {
    print "$1<br>" if m/\b([\w\d]+)$/;
}
close LOG;