#!/usr/bin/perl -w

use strict;

$_ = 'doc123/print doc456/read doc789/print doc145/print doc123/read';

my %counts;

s|(/\w+)|$1 . ++$counts{$1}|ge;

print;