welcome to the monastery rohan.mohapatra47!

I see this is your first post so please learn how to ask a good question: first of all use <c>code or data here </c> tags.

Second show some effort ie some line of Perl code you are testing and state clearly where you encounter problem.

The risk for post like your is to offend some venerable monk ("this is NOT a programming writing service") and get ignored.

Now go back to your post click Edit and add code tags and some example, put at the end a note saying you edited the node (or my comments will seem out of target!)

L*

PS i've forgot to mention How do I post a question effectively?

PPS ++ to you to have added code tags.

See also How do I change/delete my post? for more on site etiquette and protocol in these matters.

---

Give a man a fish:  <%-{-{-{-<

#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=1172420

use strict;
use warnings;

my %counter;

while(<DATA>)
  {
  chomp;
  my @parts = split /\|/;
  $counter{ join ' ', @parts[0, 4, 1] }++;
  }

for (sort keys %counter)
  {
  my @parts = split;
  print join '|', @parts[0, 1], $counter{$_}, $parts[2];
  }

__DATA__
CC225|Rosha|xyz|2221|b1
CC225|Rosha|xyz|2230|b1
CC225|Rosha|xyz|2221|b1
CC225|Rosha|xyz|2221|b1
CC225|Roshw|xyz|2222|b2
CC225|Roshw|xyz|2230|b2
CC222|Roqsha|xyz|2222|b1
CC222|Roqsha|xyz|2244|b1
CC222|Roqsh|xyz|2221|b2
CC222|Roqsh|xyz|2111|b2
[download]

eh no! uneasy question uneasy answer!

# warning win32 doublequotes

perl -F"\W" -lanE "$r{join('|',@F[0,4,1])}++}{say s/(\|\w+$)/\|$r{$_}$
+1/r for keys %r" data.txt
[download]

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.