Slide 11 of 12
Notes:
perl -ne "BEGIN {print \"working ...\";}
push(@data, \"$5 $1 $2 $3 $4 $6 $7\n\") if /\s(\d+)\s(\w+)\s(\d+)\s(\w+)\s(.{32})\s+(\w\w)\s(\w+)$/;
END{print sort @data;}" bigretestfile.txt
