$ perl -pe 's|(/\w+)|$1 . ++$counts{$1}|ge' logfile>countedlogfile $ cat logfile doc123/print doc456/read doc789/print doc145/print doc123/read $ cat countedlogfile doc123/print1 doc456/read1 doc789/print2 doc145/print3 doc123/read2