xxx@xxx:~/test/perl$ seq 100 1000000 | perl -ne 'print int(rand($_)), "\n"' | xargs -n10 echo > a
xxx@xxx:~/test/perl$ wc -l a
99991 a
xxx@xxx:~/test/perl$ for i in {1..100}; do cat a; done > b
xxx@xxx:~/test/perl$ wc -l b
9999100 b
xxx@xxx:~/test/perl$ cat b | time -p awk '{print $3$4}' > /dev/null
real 8.78
user 7.89
sys 0.38
xxx@xxx:~/test/perl$ cat b | time -p perl -ne 'print join("", (split(" ", $_, 5))[2,3]),"\n";' > /dev/null
real 13.78
user 12.93
sys 0.32