#!/usr/bin/env perl

use strict; use warnings;
use Data::Dumper;

while (<DATA>) {
  chomp;
  /^(.+) (<.+>) (\(.+\)) (.+) (.+)$/;
  print "$1 $3 $5\n";
}

__DATA__
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

##</code><code>##

aanis (Anis Ahmed A) 2007/10/04
aaputin (Artem Aputin) 2007/10/04
aazarov (Alexey Azarov) 2007/10/04