while (<>) {
    my @Fld = split('\t', $_);
    if (/Auser/) {
        print $Fld[0], $Fld[1], $Fld[7], $Fld[19];
    }
}