06/19/2007  10:50 AM    <DIR>          1dfgfg
07/20/2007  02:35 PM    <DIR>          asdasdad


##</code><code>##

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>";
}

##</code><code>##

\\STPFS03asd	MRAD\abeissel	\\stpfs03\E$\CISROOT\Home\123username\	163.59	132	750
\\STPFS02	serv\USERNAME	\\Stpfs02\E$\CISROOT\Home\anotherusername\	18.37	10	29