in reply to Extracting data from each line that matches a email address from a Log file (Tab delimited)

Along the exact same lines as runrig: perl -lane 'print "@F0, 1, 7, -1, -2" if /Auser/'

In Section Seekers of Perl Wisdom