Here is an example for you using a hash 

# declare our vars
my (%codes, @array_codes);

#undef input record sep to get all data at once
local $/;

# make an array of codes by splitting DATA on whitespace
@array_codes = split /\s+/, <DATA>;

# map the codes to a hash, counting duplicates
# using a for loop for efficiency
foreach $code_key (@array_codes) {
   $codes{$code_key}++;
} 

# print it out
printf "$_\t$codes{$_}\n" for keys %codes;


__DATA__
baaba ba abab abab abab baaba baaba babaa. 
abab aaba ba abab ba. bababab abab abab ba aaba. 
ba bababab aaba abab babaa baaba ba baaba. 
aaba ba bababab ba bababab abab ba aaba abab baaba abab. 
ba abab abab ba.

[download]

Note that: map{....}@array is just another way of writing: for (@array) { .. }. To do it to a file all you need to do to use this is do somthing like: 

sub count_codes {
  my $file = shift;
  open (FILE, "<$file") or die "Oops, perl says $!\n";
  local $/;
  my @array_codes = split /\s+/, <FILE>;
  close FILE;
  foreach $code_key (@array_codes) {
    $codes{$code_key}++;
  } 
  printf "$_\t$codes{$_}\n" for keys %codes;
}

# call sub
count_codes("/path/to/myfile.txt");

[download]

You have some full stops in there which I have assumed are part of the codes. If they are not you will need to filter them out using a regex in our for loop like this: 

foreach $code_key (@array_codes) {
  $code_key =~ s/[.]//g;
  $codes{$code_key}++;
}

[download]

If you want filter out more characters add them to the character class between the [ ]

cheers

tachyon

Update

Removed lazy and inefficient map and replaced with proper for loop. Even typed foreach to remind me not to be so slack.

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In reply to Re: What's the best way to do a pattern search like this? by tachyon
in thread What's the best way to do a pattern search like this? by supernewbie

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.