cat users.txt
aanis <aanis@xyz.com> (Anis Ahmed A) accessed 2007/10/04
aaputin <aaputin@xyz.com> (Artem Aputin) accessed 2007/10/04
aazarov <alexey.azarov@tlmcom.ru> (Alexey Azarov) accessed 2007/10/04

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %users;

open my $fh, '<', 'users.txt' or die "$!\n";

while (my $line = <$fh>) {
    chomp($line);
    my ($user, $fullname, $lastaccess) = ($line =~ m/([a-z]+).*?\((.*?)\).*?([\d\/]+)$/);
    $users{$user}{fullname} = $fullname;
    $users{$user}{lastaccess} = $lastaccess;
}

print Dumper(\%users);