use strict;
use warnings;

my @call = (
    'A19284 hostname 07/09/07 moredata moredata',
    'A19384 hostname 06/09/07 moredata moredata',
    'A19234 hostname 07/08/07 moredata moredata',
    );
print "$_,$/"  for map {s/^\w+\s//;$_} @call;