Practical Examples
http://www.cascss.unt.edu/~tim/perl/serversys.pl
Processing big data example
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