Example for "uniq"

Hi,all If I have a set of data as following: aa aa aa bb bb cc To count the repeated data, I can use cat xxx.dat | uniq -c It can get the result 3 aa 2 bb 1 cc But how to do it use perl ?

about awk 2 perl

Hi all: I want to use perl to do something like a awk script as following: cat file.txt | awk '{print $1,$2}' How can I do it ?